//SPDVPR JOB (OOOOOtMOOS 
// 9D001) tA,TIME=60,PRTY=l 
// EKEC ASHFC,PARN,ASM=«f^ 
XX PROC REGASH=56KtUMIWRK= 
XXaSM EXtC PGM=IEUaSH» Pakr 
IEF653I SUBSTITUTION JCL - 
XXSYSLIB 00 DSN=CSPDBALStD 
XX DD 0SN=SYS1,HACLIB,DISP 
XXSYSUTl DD UNIT=£UNIWRK,S 
IEF653I SUBSTITUTION JCL - 
XXSYSUT2 DD UNIT={ &UNIWRK . 
I6F653I SUBSTITUTION JCL - 
XX DSN-&SYSUT2 
IEF653I SUBSTITUTION JCL - 
XXSYSUT3 DD uNIT=( SUM I WRK, 
IEF653I SUBSTITUTION JCL - 
XX DSN=€SYSUT3 
IEF6531 SUBSTITUTIOM JCL - 
//ASM.SYSPRINT DD SPACe=f3 
X/SYSPRINT DO SYSOUT=£A,S 
IEF653I SUBSTITUTION JCL - 
XX DCB=CRECFM= 

XXSYSPUNCH DD SYSOUT=B,DCB 
XX SPACE=(3520,C400) ,RLSEI 
//ASM.SYSIN DD DS.M=CSPDVPR. 
// DCB=(RECFM=FBtLRECL=80 
// V0L=SER=T04616 
IEF236I ALLOC. FOR SPDVPR 



IEF237I 
IEF2371 
IEF237I 
IEF237I 
1EF237I 
IEF237I 
IEF2371 
ieF237I 



230 
230 
345 
341 
232 
105 
105 
495 



ALLOCATED 
ALLOCATED 
ALLOCATED 
ALLOCATED 
ALLOCATED 
ALLOCATED 
ALLOCATED 
ALLOCATED 



TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 



10000002000000000, 12 f 0361 54, VRISKOt 

OLOAD,NOOECK» 

PACK,A=A 

= *MOLOADtDECK' f REGI On=£kEGaSH,kD=^R 

PGH=IEUASN,PARM=»f^0LQAD,DECK»,REGI0M=56KrRD= 
ISP=SHR 
=SHR 
PACE={35 2Q,C200,200)),DSN=aSYSUTl 

UN IT=PACK,SPACE=( 3520, (200,200) ) ,DSM=aSYSUTl 
, SEP=S YSUTl ) ,SPACE= ( 3520 , (200 ,200 ) ) , 

UNIT= ( PACK, SEP = $YSUT1),SPACE=^( 3520 tC 200 1 200) 

DSN=£SYSUT2 
,SEp=( SySUT1,SySUT2 i ) ,SPACE=( 3520, ( 200,200) ) , 
UN IT=( PACK, SEP=(SYSUT1,SYSUT2)),SPACE=( 3320, 

DSN=SSYSUT3 
509, (225, 25 ),RLSE,COMTIG) 
PACE=( 3509, ( 40,20 ),RLSE,CONTIG), 

SYS0UT=A,SPACE=(3509, (40,20 ), RLSE ,CONT IG) ^ 
FBM,LRECL=X21,BLKS1ZE=3509,BUFN0=2) 
=(RECFH=FB,LRECL=80tBLKSIZE=3520), 

S,UNIT=TAPE7,LABEL=( ,NL) ,DISP=0LD, 
,BLKSIZE=1600,TRTCH=C,DE.N=2), 

ASM 
SYSLIB 



00000100 
00000200 
R 
00000300 
00000400 
00000 500 

00000600 

00000700 

00000800 
(200,200) ), 
00000900 



00001000 

OOOOIIOO 
00001200 
00001300 



S YSUTl 

SYSUT2 

SYSUT3 

SYSPRINT 

SYSPUNCH 

SYS IN 




lI^^ 



v<r^*«H 



l-C c-e iCs^€jm, 



EXTERNAL SYMBOL DICTIONARY PAGE 1 

SYNBOL TYPE ID ADDR LENGTH LD ID 13.52 10/28/71 

S1H1401 SD 01 000000 00 4224 
BEGIN LD 002142 01 



PAGE 



I nr ntt ir-cr rnnp 

t_ V-.' V> >. ■' 1 > V* i-. \-i < \-» W 1_- >_ 



ADDRi 



STf4T 



SOURCE STATEHENT 



F150CT70 10/28/71 



000000 



1 S1H1401 START 



00000100 



3 
4 

6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 

34 

35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 






* 14 1 S 



1401 SIMULATOR AS I^ODIFIEO BY TOM BROWN WRO AS OF 71182 



I M U L A T R 



FOR 



SYS TEH/360 



THIS PROGRAM 
SYSTEH/360 MUST 

1052, ONE 2540t 
ADVACED PROGRAMS 
16K COREt AfsJD AL 
OPERATOR CONTROL 



SRS 
STT 
LOG 
LOT 
SSS 
TAS 
CLR 
PIS 
ALT 
WTM 
RND 
TRH 



WILL SIHULATE 
HAVE AT LEAST 
AND ONE PR I NT E 
INGt SENSE SWI 
L STANDARD INS 

IS THROUGH TH 



A 1401 ON A SYSTEM/360. THE 
65K, STANDARD INSTURCTION SET, ONE 
R. THE 1401 FEATURES SUPPORTED ARE 
TONES, TAPES, HULTIPLY, DIVIDE, 
TRUCTIONS EXCEPT SELECT STACKER. 
E 1052, USING THE FOLLOWING ENTRIES 



START RESET 

START 

LOAD FROM CARDS 

LOAD FROM TAPE 

SET SENSE SWITCHES 

TAPE ASSIGNMENT 

CLEAR ALL 1401 CORE 

DISPLAY 1401 CORE ON THE PRINTER 

ALTER 1401 CORE 

WRITE TAPE MARK 

REWIND TAPE 

TERMINATE THE SIMULATOR 



16K BYTES ARE SET ASIDE FOR SIMULATED CORE 
THE FOLOWING FORMAT. 

360 BIT 1401 BIT 

UNUSED 

1 WORD MARK 

2 B 

3 A 

4 8 

5 4 

6 2 

7 1 



WITH EACH BYTE HAVING 



:^ ^ ^ ^ :^ :^ :^ ^ :^ 5}r :^ 3}: 5{ir ^ 1^ % sj: ;Jk :{r ^ ^ :?t !?t sjr :{c ::$: :§t :{: :^ :}t 4; jj! :{r j}r :^ 



* 

* 

* 

* 
* 



00000200 
00000300 
00000400 
00000500 
00000600 
00000700 
00000800 
00000900 
00001000 
00001100 
00001200 
00001300 
00001400 
00001500 
00001600 
00001700 
00001800 
00001900 
00002000 
00002100 
00002200 
00002300 
00002400 
00002500 
00002600 
00002700 
00002800 

00003000 
00003100 
00003200 
00003300 
00003400 
00003500 
00003600 
00003700 
00003800 
00003900 
00004000 
00004100 
00004200 
00004300 
00004400 
00004500 



PAGE 



i_ ii_. \^ v.- !.J vf u. V^ 1 \^ 1.-- uf 1— 

002148 
003148 

000000 



■ DDRl ADDR2 



STHT 


SOURCE STATEHENT 


51 


USING SETBS1,15 


52 


USING SETBSl + 4096ri^ 


53 


USING SIHCOR,? 



F150CT70 10/28/71 

00004700 
00004800 
00004900 



ADD 



PAGE 



LOC OBJECT CODE 



ADDRl ADDK2 STHT 



SOURCE STATEMENT 



F150CT70 10/28/71 



000000 






000000 


4990 


EE64 


000004 


4780 


D028 


000008 


4990 


EF66 


oooooc 


4780 


D03C 


000010 


4990 


tE6B 


000014 


4770 


F9EE 


000018 


416A 


0001 


0000 IC 


4580 


FAEO 


000020 


18B5 




000022 


18CB 




000024 


47F0 


D03C 


000028 


416A 


0001 


00002C 


4580 


FAEO 


000030 


18B5 




000032 


4 16 A 


0004 


000036 


4580 


FAEO 


00003A 


18C5 




00003C 


9201 


E1B5 


000040 


9200 


E1B6 


000044 


4100 


0001 


000048 


4 34 A 


0000 


00004C 


8C40 


0001 


000050 


434B 


0000 


000054 


8840 


0004 


000058 


BC40 


0002 


00005C 


434C 


0000 


000060 


8840 


0004 


000064 


8D40 


0003 


0000 68 


5440 


EDD8 


00006C 


5A40 


EDOC 


000070 


9101 


4000 


000074 


4710 


0160 



000078 


9270 


DOEl 


00007C 


4110 


0000 


000080 


433C 


0000 


000084 


1863 




000086 


5430 


EDEO 


0000 B A 


5930 


EDE4 


00008E 


4740 


D096 


000092 


5B30 


FDE6 


000096 


4930 


EE6A 


00009 A 


4770 


OOAO 


00009E 


1B33 




OOOOAO 


9501 


E1B6 


OOO0A4 


4780 


DOCA 


0000 A 8 


434B 


0000 


OOOOAC 


1 8 54 




OOOOAE 


5440 


EOEO 


0000B2 


5940 


EDE4 


0000B6 


4740 


DOBE 


00008A 


5B40 


EDE8 





55 


03FAC 


56 


00028 


57 


03FAE 


58 


0003C 


59 


03FB0 


60 


02B36 


61 


00001 


62 


02C28 


63 




64 




65 


0003C 


66 


0000 1 


67 


02C28 


68 




69 


00004 


70 


02C28 


71 




72 


032FD 


73 


032FE 


74 


00001 


75 


00000 


76 


00001 


77 


00000 


78 


00004 


79 


00002 


80 


00000 


81 


00004- 


82 


00003 


83 


03F20 


84 


03F24 


85 


00000 


86 


00160 


87 




88 




89 




90 


OOOEl 


91 


00000 


92 


00000 


93 




94 


03F28 


95 


03F2C 


96 


00096 


97 


03F30 


98 


3FB2 


99 


OOOAO 


100 




101 


032FE 


102 


OOOCA 


103 


00000 


104 




105 


03F26 


106 


3F2C 


107 


OOOBE 


108 


03F30 


109 



A 17 



All 



93 ALIA 



USING 


A, 13 


CH 


9,=H*7' 


BE 


AL7 


CH 


9r=H'l » 


BE 


ALi 


CH 


9,=H»4» 


BNE 


ILEGLM 


LA 


6,1(10) 


BAL 


8,CVAD43 


LR 


1U5 


LR 


12tll 


B 


ALI 


LA 


6fl(10) 


BAL 


8yCVAD43 


LR 


11,5 


LA 


6,4(10} 


BAL 


8,CVAD43 


LR 


12,5 


MVI 


POSltl 


HVl 


AENOfO 


LA 


0,1 


IC 


4,0(10) 


SRDL 


4,1 


IC 


4,0(11 } 


SRL 


4,4 


SRDL 


4,2 


IC 


4,0(12) 


SRL 


4,4 


SLOL 


4,3 


N 


4,=F»31« 


A 


4,=A(TBTRCP) 


TM 


0(4),X«1» 


BO 


ALIH 



PERFORH TRUE ADD 



mi 


AL1C+1,X»70» 


LA 


1,0 


IC 


3,0(12) 


LR 


6,3 


H 


3,=F»15* 


C 


3,=F'11» 


BL 


*+8 


S 


3,=F»B» 


CH 


3,=H»10» 


BNE 


*+6 


SR 


3,3 


CLI 


AEND,1 


BE 


ALIB 


IC 


4,0(11 ) 


LR 


5,4 


H 


4,=F»15« 


C 


4,-F»ll» 


BL 


'^=+8 


S 


4,=F'8» 



DETERHINE 
4 



INSTRUCTION LENGTH 



CHARACTERS, SET A AND B EQUAL 



* 



CONV 

SET 

CLEA 

SET 

GET 

SAVE 

GET 

GET 
TEST 



ERT ADDRESSES 



1-POSITION INDICATOR 
R A-FIELO ENDED INDICATOR 
REGISTER FOR FAST SUBTRACTION 
OP CODE 

LOW ORDER BIT 
A-FIELD SIGN 



B -FIELD SIGN 
TABLE 



SET TO KEEP SIGN 

CLEAR CARRY 

GET B-EIELD CHARACTER 

SAVE B-FIELO ZONE 

ISOLATE DIGIT 

Q/ IS DIGIT NUMERIC 

YES 

NO, ELIMINATE 8 BIT 

Q/ ZERO 

NO 

YES, CLEAR IT 

0/ IS THERE STILL AN A-FIELD 

NO 

YES, GET DIGIT 

Q/ IS DIGIT NUMERIC 

YES 

NO, ELIMINATE 8 BIT 



00005100 
00005200 
00005 300 
00005400 
00005500 
00005600 
00005700 
00005800 
00005900 
00006000 
00006100 
00006200 
00006300 
00006400 
00006500 
00006600 
00006700 
00006800 
00006900 
00007000 
00007100 
00007200 
00007300 
00007400 
00007500 
00007600 
00007700 
00007800 
00007900 
00008000 
00006100 
00008200 

rir\nr\Q itnn 

00008400 
00008500 
00008600 
00008700 
00008800 
00008900 
00009000 
00009100 
00009200 
00009300 
00009400 
00009500 
00009600 
00009700 
00009800 
00009900 
00010000 
00010100 
00010200 
00010300 
00010400 
00010500 



ADO 



PAGE 



LOC 


OBJECT CODE 


ADDRI 


A DDR 2 


STNT 


SOURCE STATEMENT 




F150CT70 


10/28/71 


0000 BE 


4940 


EE6A 




03FB2 


110 




CH 


4,=H«10» 




0/ ZERO 


00010600 


ooooc? 


4770 


D0C8 




000C8 


111 




BNE 


*+6 




NO 


00010700 


0000C6 


1B44 








112 




SR 


4,4 




YES, CLEAR IT 


00010800 


OO00C8 


1A34 








113 




AR 


3,4 




ADO A TO B 


00010900 


OOOOCA 


1A31 








114 


ALIB 


AR 


3,1 




ADD CARRY 


00011000 


OOODCC 


4110 


0000 




00000 


115 




LA 


1,0 




CLEAR CARRY 


00011100 


0000 DO 


4930 


EE6C 




03FB4 


116 




CH 


3,=H»9» 




Q/ IS RESULT GREATER THAN 9 


00011200 


00D0D4 


4700 


DOEO 




000 EO 


117 




BIMH 


ALIC 




NO, OK 


00011300 


0000D8 


4B30 


EE6A 




03FB2 


118 




SH 


3,=H«10» 




YES, SUBTRACT 10 


00011400 


oooooc 


4110 


0001 




00001 


119 




LA 


Ul 




SET CARRY 


00011500 


OOOOEO 


9400 


COOO 


00000 




120 


ALIC 


HI 


0( 12J,X»00« 


STORE RESULT DIGIT 


00011600 


O0OOE4 


4230 


00F5 




000F5 


121 




STC 


3,AL1D+1 




* 


00011700 


0000E8 


910F 


D0F5 


000F5 




122 




TH 


ALlO+ltX' 


•0F« 


Q/ IS RESULT ZERO 


00011800 


OOOOEC 


4750 


D0F4 




000F4 


123 




BC 


5, ALIO 




NO 


00011900 


OOOOFO 


960 A 


D0F5 


OOOFS 




124 




01 


ALID+UX 


»0A« 


YES, SET 8-2 BITS 


00012000 


0000F4 


9600 


COOO 


00000 




125 


ALIO 


01 


0(12), 




^ 


00012100 


0000 F 8 


9240 


DOEl 


OOOEl 




126 




mi 


AL1C+1,X 


•40» 


SET TO ELIMINATE ZONES 


00012200 


0000 FC 


9501 


E186 


032FE 




127 




CLl 


AENDtl 




0/ HAS A~FIELD ALREADY ENDED 


00012300 


000100 


4780 


D112 




00112 


128 




BE 


ALIE 




YES 


00012400 


000104 


IBBO 








129 




SR 


UfO 




OECREHENT A-FIELD ADDRESS 


00012500 


000106 


9140 


BOOl 


00001 




130 




TH 


1(11), X»^ 


^0» 


Q/ END OF A-FIELD 


00012600 


OOOIOA 


4780 


D112 




00112 


131 




BZ 


ALIE 




NO 


00012700 


OOOIOE 


9201 


E1B6 


032FE 




132 




MVI 


AENOtl 




YES, SET A-FIELD ENDED INDICATOR 


00012800 


000112 


IBCO 








133 


ALIE 


SR 


12,0 




DECREMENT B-FIELD ADDRESS 


00012900 


000114 


9140 


COOl 


00001 




134 




TM 


1(12),X«40» 


0/ END OF B-FIELD 


00013000 


000118 


4710 


D12E 




0012E 


135 




BO 


ALIF 




YES 


00013100 


OOOllC 


9200 


E1B5 


032FD 




136 




MV! 


POSlfO 




NO, TURN OFF 1-POSITION INDICATOR 


00013200 


000120 


9501 


E1B6 


32FE 




137 




CL! 


AENDtl 




Q/ A-FIELD ENDED 


00013300 


000124 


4770 


0080 




00080 


138 




BNE 


ALIA 




NO 


00013400 


000128 


1B55 








139 




SR 


5t5 




YES, CLEAR A-FIELD CHARACTER 


00013500 


00012A 


47F0 


D080 




00080 


140 




B 


ALIA 




ADD NEXT POSITION 


00013600 


00012E 


9501 


E1B5 


032F0 




141 


ALIF 


CLI 


POSltl 




Q/ WAS THIS A 1-POSITION FIELD 


00013700 


000132 


4780 


D152 




00152 


142 




BE 


ALIGI 




YES, DONE 


00013800 


000136 


5450 


EOEC 




03F34 


143 




N 


5,=F*48» 




NO, ADD HIGH ORDER ZONES 


00013900 


00013A 


5460 


EDEC 




03F34 


144 




N 


6,=F»48» 




* 


00014000 


00013E 


1A56 








145 




AR 


5,6 




^ 


00014100 


000140 


8910 


0004 




00004 


146 




SLL 


1,4 




ADD CARRY 


00014200 


000144 


1A51 








147 




AR 


5,1 




♦ 


00014300 


000146 


4250 


D14F 




0014F 


148 




STC 


5,AL1G-H 




STORE NEW ZONE 


00014400 


000 14 A 


9430 


D14F 


0014F 




149 




NI 


ALIG+ItX' 


'30* 


* 


00014500 


00014E 


9600 


COOl 


00001 




150 


ALIO 


01 


1(12),0 




^ 


00014600 


000152 


1211 








151 


ALIGI 


LTR 


1,1 




0/ WAS THERE A CARRY 


00014700 


000154 


4780 


E076 




0318E 


152 




BC 


8,NXT0P 




NO 


00014800 


000158 


9201 


ElAB 


032E3 




153 




NVI 


OVRFLOfI 




YES, SET OVERFLOW INDICATOR 


00014900 


00015C 


47F0" 


E076 




03ieE 


154 
155 


^ 


B 


NXTOP 






00015000 
00015100 












156 


* 


PERFORM 


COMPLEMENT ADDITI 


ON 


00015200 












157 


^ 










00015300 


000160 


4110 


0001 




00001 


158 


ALIH 


LA 


1,1 




SET CARRY 


00015400 


000164 


50 CO 


E1S8 




03300 


159 




ST 


12,SAVB 




SAVE B-FIELD UNITS ADDRESS 


00015500 


000168 


9Z70 


01E7 


001E7 




160 




mi 


AL1L+1,X' 


»70» 


SET TO KEEP B-FIELD SIGN 


00015600 


00016C 


433C 


0000 




00000 


161 




IC 


3,0(12) 




GET B-FIELD SIGN 


00015700 


000170 


5430 


EDEC 




03F34 


162 




H 


3,=F«48« 




^ 


00015800 


000174 


4930 


EE6E 




03FB6 


163 




CH 


3,=H«32» 




Q/ IS IT HINUS 


00015900 


000178 


4780 


D180 




00180 


164 




BE 


ALII 




YES 


00016000 



ADD 



PAGE 



LOC OBJECT CODE 



000 17C 
000180 
000184 
000188 
00018C 
000190 
000194 
000198 
00019C 
00019E 
0001A2 
0001A6 
OOOIAA 
0001 AE 
000132 
0001B6 
000 ISA 
OOOIBE 
0001C2 
000 IC 6 
0001C8 
OOOICA 
OOOICC 
OOOICE 
0001D2 
0001D6 
0001 DA 
OOOIDE 
0001E2 
0001 E6 
OOOIEA 
0001 EE 
0001F2 
0001 F6 
000 IF A 
0001 FE 
000202 
000206 
000208 
00Q20C 
000210 
000214 
000216 
00021 A 
00021E 
con??? 

000226 
000228 



9630 
432C 
5420 
5920 
4740 
■5B20 
4920 
4770 
IB 22 
4130 
9501 
4780 
434B 
5440 
5940 
4740 
5B40 
4940 
4770 
1B44 
1B34 
1A23 
1A21 
4110 
4920 
47D0 
4B20 
4110 
4220 
9400 
910F 
4750 
960A 
9600 
9240 
9501 
4780 
IBBO 
9140 
4780 
9201 
IBCO 
9140 
4710 
9200 
4 7F0 
1211 
4760 



cooo 

0000 

EDEO 
EDE4 
D194 
EDE8 
FE6A 
D19E 

0009 
E1B6 
DICA 
0000 
EDEO 
EDE4 
OIBE 
EDE8 
EE6A 
D1C8 



EE6C 
01E2 
EE6A 
0001 
01F7 
COOO 
01F7 
D1F6 
D1F7 
COOO 
01E7 
E1B6 
0214 

BOOl 
D214 

E1B6 

COOl 
0226 

E1B5 
DIRO 

E076 



00022C 4110 0001 
000230 58C0 E1B8 
000234 43 2C 0000 
000238 5420 EDEC 



ADDRl 


ADDR2 


STMT 


SOUR 


CE STATEMENT 


00000 




165 




01 


0C12) ,X»30» 




00000 


166 


ALII 


IC 


2fO{ 12 J 




03F28 


167 




H 


2,=F»15» 




03F2C 


166 




C 


2 1 =F » 1 1 » 




00194 


169 




BL 


*+8 




03F30 


170 




S 


2,=F»8« 




03FB2 


171 




CH 


2,=H»10» 




001 9E 


172 




BNE 


*-*'6 






173 




SR 


2,2 




00009 


174 




LA 


3,9 


032FE 




175 




CLI 


AEND,1 




OOICA 


176 




BE 


ALU 




00000 


177 




IC 


4,0(11) 




03F28 


178 




H 


4,=F»15» 




03F2C 


179 




C 


4,=F»11» 




OOIBE 


180 




BL 


*+8 




03F30 


181 




S 


4,=F»8* 




03FB2 


182 




CH 


4,=H»10» 




001C8 


183 




B-ME 


*+6 






184 




SR 


4,4 






185 




SR 


3,4 






186 


ALU 


AR 


2,3 






187 




AR 


2,1 




00000 


188 




LA 


1,0 




03FB4 


189 




CH 


2,=H«9» 




001E2 


190 




BNH 


ALIK 




03FR2 


191 




SH 


2,=H»10» 




00001 


192 




LA 


1,1 




001F7 


193 


ALIK 


STC 


2,AL1H+1 


00000 




194 


ALIL 


HI 


0(12), 


001F7 




195 




TM 


AL1M+1,X»0F« 




001F6 


196 




BC 


5,AL1M 


001F7 




197 




01 


AL1M4 1,X»0A« 


00000 




198 


ALIH 


01 


0(12), 


001E7 




199 




HVI 


AL1L+1,X»40» 


032FE 




200 




CLI 


AEND,1 




00214 


201 




BE 


ALIN 






202 




SR 


11,0 


00001 




203 




TH 


1(11),K*40» 




00214 


204 




BZ 


ALIM 


032FE 




205 




MVI 


AEND,1 






206 


ALIN 


SR 


12,0 


00001 




207 




TM 


1(12),X»40» 




00226 


208 




BO 


ALIO 


032FD 




209 




MVI 


P0S1,0 




0^^180 


210 




B 


ALII 






211 


ALIO 


LTR 


1,1 




031BE 


212 
213 




BC 


6,NXT0P 






214 


* 


PERFORM 


RECOMPLEHENT 






215 


^ 








00001 


216 




LA 


1,1 




03300 


217 




L 


12,SAVB 




00000 


218 




IC 


2,0(12) 




03F34 


219 




H 


2,=F«48» 
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NO, PUT PLUS SIGN IN STANDARD FORH 

GET B-FIELD DIGIT 

* 

Q/ IS DIGIT NUMERIC 

YES 

NO, ELIHIMATE 8 BIT 

Q/ ZERO 

NO 

YES, CLEAR IT 

SET COHPLEMENT 

0/ HAS A-FIELD PREVIOUSLY ENDED 

YES 

NO, GET A-FIELD DIGIT 

0/ IS DIGIT NUMERIC 

YES 

MO, ELIMINATE 8 BIT 

0/ ZERO 

NO 

YES, CLEAR IT 

COMPLEMENT A-FIELD DIGIT 

ADD COMPLEMENT TO B-FIELD DIGIT 

ADD CARRY 

CLEAR CARRY 

0/ RESULT GREATER THAN 9 

NO, OK 

YES, SUBTRACT 10 

SET CARRY 

STORE RESULT DIGIT 

0/ IS RESULT ZERO 
NO 



SET TO ELIMINATE B-FIELD ZONES 

0/ HAS A-FIELD ALREADY ENDED 

YES 

NO, DECREMENT A-FIELD ADDRESS 

Q/ IS THIS THE END OF THE A-FIELD 

NO 

YES, SET A-FIELD ENDED INDICATOR 

DECREMENT B-FIELD ADDRESS 

Q/ IS THIS THE END OF THE B-FIELD 

YES 

NO, CLEAR 1-POSITION INDICATOR 



Q/ CARRY 
YES, DONE 



SET CARRY 

RESTORE B-FIELD UNITS ADDRESS 

GET B-FIELD SIGN 



00016100 
00016200 
00016300 
00016400 
00016500 
00016600 
00016700 
00016800 
00016900 
00017000 
00017100 
00017200 
00017300 
00017400 
00017500 
00017600 
00017700 
00017800 
00017900 
00018000 
00018100 
00018200 
00018300 
00018400 
00018500 
00018600 
00010700 
00018800 
00018900 
00019000 
00019100 
00019200 
00019300 
00019400 
00019500 
00019600 
00019700 
00019800 
00019900 
00020000 
00020100 
00020200 
00020300 
00020400 
00020500 
00020600 
00020700 
00020800 
00020900 
00021000 
00021100 
00021200 
00021300 
00021400 
00021500 
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OBJECT CODE 
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STHT 


SOURCE STATE 


MENT 
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10/28/71 


0002 3C 


94CF 


cooo 


00000 




220 




NI 


0(12}^X* 


CF* 


SET SIGN TO MINUS 




00021600 


000240 


9620 


cooo 


00000 




221 




01 


0C12)tX» 


20* 


:5c 




00021700 


000244 


4920 


EE6E 




03FB6 


222 




CH 


2,=H«32« 




Q/ i^AS THE B-FIELD 


SIGN MINUS 


00021800 


000248 


4770 


D250 




00250 


223 




3NE 


ALIP 




NO, LEAVE IT MINUS 




00021900 


00024C 


9630 


COOO 


00000 




224 




01 


0(12),X» 


30» 


YES, SET IT PLUS 




00022000 


0002'>0 


433C 


0000 




00000 


225 


At IP 


IC 


3,0C12) 




GET B-FIELD DIGIT 




00022100 


000254 


5430 


EDEO 




03F28 


226 




N 


3t=F«15» 




* 




00022200 


000258 


4930 


EE6A 




03FB2 


227 




CH 


3,=H»10« 




Q/ ZERO 




00022300 


00025C 


4770 


0262 




00262 


228 




BNE 


=^+6 




NO 




00022400 


000260 


1B33 








229 




SR 


3,3 




YES, CLEAR IT 




00022500 


000262 


4140 


0009 




00009 


230 




LA 


4t9 




SET COMPLEMENT 




00022600 


000266 


IB 43 








231 




SR 


4,3 




CONPLEMENT THE DIGIT 


00022 700 


000268 


1A41 








232 




AR 


4,1 




ADD CARRY 




00022800 


00026A 


4110 


0000 




00000 


233 




LA 


1,0 




CLEAR CARRY 




00022900 


00026 E 


4940 


EE6C 




03FB4 


234 




CH 


4,=H»9» 




0/ IS THE RESULT GREATER THAN 9 


00023000 


000272 


47D0 


D27E 




0027E 


235 




BNH 


ALIO 




NO, OK 




00023100 


000276 


4B40 


EE6A 




03FB2 


236 




SH 


4,=H»10» 




YES, SUBTRACT 10 




00023200 


00027A 


4110 


0001 




00001 


237 




LA 


1,1 




SET CARRY 




00023300 


00027E 


4240 


0293 




00293 


238 


ALIO 


STC 


4,AL1R+1 




STORE RESULT 




00023400 


000282 


9470 


COOO 


00000 




239 




NI 


0(12), X» 


70 » 


* 




00023500 


000286 


910F 


D293 


00293 




240 




TM 


AL1R+1,X 


•0F» 


0/ IS RESULT ZERO 




00023600 


00028A 


4750 


D292 




00292 


241 




BC 


5,AL1R 




NO 




00023700 


00028E 


960A 


D293 


00293 




242 




01 


AL1R+1,X 


•0A« 


YES, SET 8-2 BITS 




00023800 


000292 


9600 


COOO 


00000 




243 


ALIR 


01 


0(12), 




55: 




00023900 


000296 


IBCO 








244 




SR 


12,0 




DECREWENT B-FIELD t 


«^ODRESS 


00024000 


000298 


9140 


COOl 


00001 




245 




TH 


1(12), X» 


40 • 


0/ IS THIS THE END 


OF THE B-FIELD 


00024100 


00029C 


4780 


0250 




00250 


24 6 




BZ 


ALIP 




NO 




00024200 


0002A0 


47F0 


E076 




031BE 


247 




B 


NXTOP 




YES 




00024300 


0002A4 


0100010000010100 




248 


TBTRCP 


DC 


X' 01000100000101000100010000010100 » 




00024400 


000284 


0001000101000001 




249 




DC 


X '000 lOOOlO 10000010 100010000010100* 
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0002C4 










251 


0002C4 


4990 


EE66 




03FAE 


252 


0002C8 


4780 


D036 




002FA 


253 


0002CC 


4990 


EE64 




03FAC 


254 


0002 DO 


4780 


0018 




002DC 


255 


000204 


4990 


EE68 




03FB0 


256 


000208 


4770 


F9EE 




02B36 


257 


00020C 


41 6 A 


0001 




00001 


258 


0002 EO 


4580 


FAEO 




02C28 


259 


0002E4 


I8B5 








260 


0002E6 


18C5 








261 


0002E8 


4990 


EE68 




03FB0 


262 


0002EC 


4780 


D036 




002FA 


263 


0002F0 


416A 


0004 




00004 


264 


0002F4 


4580 


FAEO 




02C28 


265 


0002 F8 


18C5 








266 


0002FA 


186C 








267 


0002FC 


1858 








268 


0002FE 


4100 


0001 




00001 


269 


000302 


4338 


0000 




00000 


270 


000306 


4230 


FB68 




02CB0 


271 


00030A 


DlOO 


6000 5000 


00000 


00000 


272 


000310 


944 F 


6000 


00000 




273 


000314 


1B50 








274 


000316 


1B60 








275 


000318 


9140 


5001 


00001 




276 


0003 IC 


4710 


D080 




00344 


277 


000320 


9140 


6001 


00001 




278 


000324 


4780 


0046 




00 30 A 


279 


000328 


9620 


COOO 


00000 




280 


00032C 


9430 


F868 


02CB0 




281 


000330 


9520 


FB68 


02CB0 




282 


000334 


4780 


0078 




0033C 


283 


000338 


9630 


COOO 


00000 




284 


00033C 


18B5 








285 


00033E 


18C6 








286 


000340 


47F0 


E076 




031BE 


287 


000344 


9140 


6001 


0000 I 




288 


000348 


4710 


D064 




00328 


289 


00034C 


9440 


6000 


00000 




290 


000350 


960A 


6000 


00000 




291 


000354 


1B60 








292 


000356 


47F0 


D080 




00344 


293 



ZA 



ZAL7 



ZALl 



ZALIA 



2AL1C 



ZALID 



ZALIE 



USING 


ZA,13 


CH 


9,=H«1» 


BE 


ZALl 


CH 


9,=H»7« 


BE 


ZAL7 


CH 


9,=H»4* 


BNE 


ILEGLN 


LA 


6,1(10) 


BAL 


8,CVAD43 


LR 


lit 5 


LR 


12t5 


CH 


9,=H»4« 


BE 


ZALl 


LA 


6t4C10) 


BAL 


8»CVAD43 


LR 


12 t 5 


LR 


6,12 


LR 


5,11 


LA 


0,1 


IC 


3,0(11J 


STC 


3, TEMPI 


MVM 


0(1,6) ,0(5) 


.MI 


0{6),X*4F' 


SR 


5,0 


SR 


6,0 


JM 


1(5),X»40» 


BO 


ZALIE 


TM 


1(6),X»40» 


BZ 


ZALIA 


01 


0{12),X«20» 


HI 


TEMPI, X«30» 


CLI 


TEMPI, X»20« 


BE 


ZALID 


01 


0{12),X«30» 


LR 


1U5 


LR 


12,6 


B 


NX TOP 


TM 


1(6),X»40« 


BO 


ZALIC 


HI 


0(6),X«40» 


01 


0(6) ,X»OA» 


SR 


6,0 


B 


ZALIE 



SAVt 
MOVE 


': LOW CHARACTER OF A-FIELD 


; NUMERIC 




ELIMINATE ZONE 




0/ END OF A~FIELD 




YES 






NO, 


END OF B-FIELD 




NO, 


MOVE NEXT DIGIT 




SET 


B-FIELD SIGN MINUS 




Q/ 1 
YES 


[S A-FIELD MINUS 








NO, 


SET B-FIELD SIGN PLUS 




SET 


A-ADDRESS 




SET 


B-ADDRESS 




ZERO B-FIELD BEYOND RANGE 


OF 


* 






^ 
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00025000 
00025100 
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00025400 
00025500 
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00025800 
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00026000 
00026100 
00026200 
00026300 
00026400 
00026500 
00026600 
00026700 
00026800 
00026900 
00027000 
00027100 
00027200 
00027300 
00027400 
00027500 
00027600 
00027700 
00027800 
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00028000 
00028100 
00028200 
00028300 
A-FIELD 00028400 
00028500 
00028600 
00028700 
00028800 
00028900 
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00035A 










295 




USING 


ZStl3 




00029100 


00035 A 


4990 


EE64 




03FAC 


296 


2S 


CH 


9,=H*7» 




00029200 


00035E 


4780 


0018 




00372 


297 




BE 


ZSl 




00029300 


000362 


4990 


EE66 




03FAE 


298 




CH 


9,=.H»1» 




00029400 


000366 


4780 


D036 




00390 


299 




BE 


ZSL4 




00029500 


00036A 


4990 


EE68 




03FB0 


300 




CH 


9,=rH»4» 




00029600 


00036E 


4770 


F9EE 




02B36 


301 




BME 


ILEGLN 




00029700 


000372 


416A 


0001 




00001 


302 


2 SI 


LA 


6,1{10) 




00029800 


000376 


4580 


FAEG 




02C28 


303 




BAL 


8,CVAD43 




00029900 


0003 7A 


18B5 








304 




LR 


11,5 




00030000 


00037C 


18CB 








305 




LR 


12,11 




00030100 


00037E 


4990 


EE68 




03FB0 


306 




CH 


9,=H»4« 




00030200 


000382 


4780 


0036 




00390 


307 




BE 


ZSL4 




00030300 


000386 


416A 


0004 




00004 


308 




LA 


6,4(10) 




00030400 


00038A 


4580 


FAEO 




02C28 


309 




BAL 


8,CVAD43 




00030500 


0003BE 


18C5 








310 




LR 


12,5 




00030600 


000390 


185B 








311 


ZSL4 


LR 


5,11 




00030700 


000392 


186C 








312 




LR 


6,12 




00030800 


000394 


4100 


0001 




00001 


313 




LA 


0,1 


SET ONE IN REG FOR SUBTRACTING 


00030900 


000398 


433B 


0000 




00000 


314 




IC 


3,0(11) 


SAVE LOW CHARACTER OF A-FIELD 


00031000 


00039C 


4230 


FB68 




02CB0 


315 




STC 


3, TEMPI 


* 


00031100 


0003AO 


DlOO 


6000 5000 


00000 


00000 


316 


ZSL4A 


HVN 


0(1, 6), 0(5) 


MOVE NUMERIC 


00031200 


0003A6 


944F 


6000 


00000 




317 




NI 


0(6),X»4F« 


ELIMINATE ZONE 


00031300 


0003AA 


1B50 








318 




SR 


5,0 


DECREMENT A~ADORESS 


00031400 


0003AC 


9140 


5001 


00001 




319 




TM 


1C5),X»40« 




00031500 


0003B0 


4710 


D088 




003E2 


320 




BO 


2SL4F 




00031600 


0003B4 


1B60 








321 




SR 


6,0 


DECREMENT B~ADDRESS 


00031700 


0003B6 


9140 


6 001 


00001 




322 




TM 


1(6),X»40» 




00031800 


0003BA 


4780 


0046 




003A0 


323 




BZ 


2SL4A 




00031900 


0003BE 


9620 


COOO 


00000 




324 


2SL4C 


01 


0(12},X»20« 


SET B-FIELD SIGN MINUS 


00032000 


0003C2 


9430 


FB68 


Q2CB0 




325 




NI 


TEMPI, X«30» 


Q/ If^AS A-FIELD MINUS 


00032100 


0003C6 


9520 


FB68 


02C80 




326 




CLI 


TEMPI, X»20' 


* 


00032200 


0003CA 


4770 


D078 




003D2 


327 




BNE 


ZSL4D 


LEAVE IT MINUS IF IT WAS PLUS 


00032300 


0003 CE 


9630 


COOO 


00000 




328 




01 


0(12>,X«30» 


MAKE B-FIELO PLUS 


00032400 


000302 


18B5 








329 


2SL40 


LR 


11,5 




00032500 


000304 


18C6 








330 




LR 


12,6 




00032600 


0003D6 


47F0 


E076 




0318E 


331 




B 


NXTOP 




00032700 


0003DA 


9440 


6000 


00000 




332 


ZSL4E 


NI 


0(6),X»40» 




00032800 


0003 DE 


960A 


6000 


00000 




333 




01 


0(6),X»0A» 




00032900 


0003E2 


1B60 








334 


2SL4F 


SR 


6,0 




00033000 


0003E4 


9140 


6001 


00001 




335 




TH 


1(6) ,X»40» 




00033100 


0003E8 


4710 


D064 




0038 E 


336 




BO 


ZSL4C 
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B,13 




0003F0 


4990 


EE66 




OBFAE 


340 


B 


CH 


9,-H»l' 




0003F4 


4780 


D12C 




005 IC 


341 




BE 


BCEIA 




0003FB 


4990 


FF68 




03FB0 


342 




CH 


9,=H»4« 




0003FC 


4780 


DIOA 




004FA 


343 




BE 


BL5BCH 




000400 


4740 


F9EE 




02B36 


344 




BL 


ILEGLN 




000404 


9500 


A004 


00004 




345 




CLI 


4(10)t0 




000408 


4780 


DIOA 




004FA 


346 




BE 


BL5BCH 




00040C 


4990 


EE64 




03FAC 


347 




CH 


9t=H»7» 




000410 


4780 


D118 




00508 


348 




BE 


BCE7 




000414 


4990 


EE70 




03FB8 


349 




CH 


9,=H«8« 




000418 


4780 


D112 




00502 


350 




BE 


BCE8 




0004 IC 


4720 


F9EE 




02B36 


351 




BH 


ILEGLN 




000420 


4990 


EE72 




03FBA 


352 




CH 


9,=H»5» 




000424 


4770 


F9EE 




02B36 


353 




BNE 


ILEGLN 




000428 


4 33 A 


0004 




00004 


354 




IC 


3,4(10) 


GET 


00042C 


5430 


EDFO 




03F38 


355 




N 


3,=F»63« 


* 


000430 


8930 


0002 




00002 


356 




SLL 


3,2 


MULT 


000434 


5843 


D15C 




0054C 


357 




L 


4,DCHARTBL(3} 


GET 


000438 


07F4 








358 




BR 


4 


GO T 


00043A 


9101 


ElAO 


032EB 




359 


BL5A 


TH 


SENSEA,! 


Q/ I 


00043 E 


4780 


E076 




031BE 


360 




BZ 


NXTOP 


NO, 


000442 


9101 


E1&4 


032FC 




361 




TH 


CRDEOFfl 


YES, 


000446 


4710 


DIOA 




004FA 


362 




BO 


BL5BCH 


YES, 


00044A 


47F0 


E076 




031BE 


363 




B 


NXTOP 


NO 


00044E 


9501 


ElAl 


32E9 




364 


BL5B 


CLI 


SENSES,! 




000452 


47F0 


0106 




004F6 


365 




B 


BL5CKB 




000456 


9501 


E1A2 


032EA 




366 


BL5C 


CLI 


SENSECl 




00045 A 


47 FO 


D106 




004F6 


367 




B 


BL5CKB 




00045E 


9501 


E1A3 


032EB 




368 


BL50 


CLI 


SENSED,! 




000462 


47F0 


D106 




004F6 


369 




B 


BL5CKB 




000466 


9501 


E1A4 


032EC 




370 


BL5E 


CLI 


SENSEE,! 




00046A 


47F0 


D106 




004F6 


371 




B 


BL5CKB 




00046E 


9501 


E1A5 


032ED 




372 


BL5F 


CLI 


SENSEF,! 




000472 


47F0 


0106 




004F6 


373 




B 


BL5CKB 




000476 


9501 


E1A6 


032EE 




374 


BL5G 


CLI 


SENSEG,! 




00047A 


47F0 


0106 




004F6 


375 




B 


BL5CKB 




00047E 


9501 


ElAA 


032F2 




376 


BL5K 


CLI 


TPEOF,! 




000482 


9200 


ElAA 


032F2 




377 




HVI 


TPEOF,0 




000486 


47F0 


D106 




004F6 


378 




B 


BL5CKB 




00048A 


9501 


E1A9 


022F1 




379 


BL5L 


CLI 


TPERR,! 




00048E 


47F0 


D106 




004F6 


380 




B 


BL5CKB 




000492 


9500 


El AC 


32F4 




381 


BL5S 


CLI 


CPR,0 




000496 


47F0 


D106 




004F6 


382 




B 


BL5CKB 




00049A 


9501 


ElAC 


032F4 




383 


BL5T 


CLI 


CPR,1 




00049E 


47 FO 


D106 




004F6 


384 




B 


BL5CKB 




000A^A2 


9502 


ElAC 


32F4 




385 


BL5U 


CLI 


CPR,2 




0004A6 


47F0 


D106 




004F6 


386 




B 


BL5CKB 




0004AA 


9500 


ElAC 


032F4 




387 


BL51 


CLI 


CPR,0 




0004AE 


4780 


E076 




031BE 


388 




BE 


NXTOP 




0004B2 


47F0 


DIOA 




004FA 


389 




B 


BL5BCH 




0004B6 


9501 


ElAB 


032F3 




390 


BL5Z 


CLI 


OVRFLO,! 




0004BA 


9200 


ElAB 


32F3 




391 




MVI 


OVRFLO,0 




0004BE 


47F0 


D10 6 




004F6 


392 




B 


BL5CKB 




0004C2 


9501 


E1A7 


032EF 




393 


BL59 


CLI 


PRTP9,1 





10/28/71 
00033500 



CHAINED BCE? 

YES, GO CHECK IT 

UNCOND 4-POS BRANCH? 

YES, 00 IT 

ILLEGAL LENGTH OF 2 OR 

IS POS 5 BLANK? 

YES, UNCOND BRANCH 

CHAINED 7-POS BRANCH? 

YES, GO CHECK IT 

8-POS BCE? 

YES, DO IT 

>8, NO GOOD 

5-POS COND BRANCH? 

NO, ILLEGAL 6-POS INST 

CHARACTER 



IPLY BY 4 

ADDRESS OF CONDITIONAL 
ROUTINE OF NXTOP 
S SENSE SWITCH A ON 
CANNOT BRANCH 

IS READER EHPTY 

BRANCH 



BRANCH RTN 



00034500 
00034600 
00034700 
00034800 
00034900 
00035000 
00035100 
00035200 
00035300 
00035400 
00035500 
00035600 
00035700 
00035800 
00035900 
00036000 
00036100 

00036300 
00036400 
00036500 
00036600 
00036700 
00036800 
00036900 
00037000 
00037100 
00037200 
00037300 
00037400 
00037500 
00037600 
00037700 
00037800 
00037900 
00038000 
00038100 
00038200 
00038300 
00038400 



BRANCH f CONDITIONAL BRANCH^ AND BRANCH ON CHARACTER 
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LOG OBJECT CODE 



ADDRI ADDR? STMT SOURCE STATEMENT 
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0004 C 6 
0004CA 
0004CE 
00040? 
000406 
00040A 
0004DE 
0004E2 
0004E6 
0004EA 
0004EE 
0004F2 
0004 F 6 
0004FA 
0004FE 
000502 
000508 
00050C 
000510 
000512 
000516 
0005 I A 
00051C 
000522 
000526 
0005 2C 
000530 
000532 
000534 
000538 
0005 3 A 
00053E 
000542 
000546 
00054A 
00054C 
000580 
000598 
000 5 D4 
0005 F 8 
0006 2 C 



A007 032F5 



47FD 

9501 E1A8 032F0 

47F0 

9501 E1C8 03310 

9200 E1C8 03310 

47F0 

9501 E1C7 0330F 

9200 E1C7 0330F 

47 F 

9501 E1C9 03311 

9200 E1C9 03311 

47F0 

4770 

416A 

47F0 

0200 

41 6 A 

4580 

18C5 

416A 

4580 

18 B5 

D200 FR68 COOO 02CB0 

94BF FB68 02C30 

D500 FB68 ElAD 02CB0 

4770 

18CA 

1AC9 

50A0 

18AB 

4190 

47F0 

4 SCO 

47 FO 

0000 

000004FA000031BE 

000031BE000031BE 

0000049A000004A2 

0000047E0000048A 

000031BE0000315E 

000031BE000031BE 



DI06 
E1A8 
DI06 
E1C8 
E1C8 
D106 
E1C7 
E1C7 
E076 
E1C9 
E1C9 
D106 
E076 
0001 
F97E 
EI AD 
0004 
FAEO 

0001 
FAEO 

FR68 
FB68 
FB68 
015? 



ElBO 

0000 
E076 
E E 6 6 

E076 



004F6 
004F6 

004F6 

031BE 



004F6 
031BE 
00001 
02AC6 
00007 
00004 
02C28 

00001 
02C28 

00000 

032F5 
00542 



032F8 

00000 
031 BE 

03FAE 

031BE 



394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
40 5 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 

-I C_ \J 

427 

428 
429 

430 
431 
432 
433 



8 
BL52 CLI 

B 
BL5RER CLI 

MVI 



BL5PER 

BL5P 
BL53 



BL5CKB 
BL5BCH 

BCE8 
BCE7 



BCEIA 



CLI 
MVI 

B 
CLI 

m\ 

B 

5NE 

LA 

B 

NfVC 
LA 

BAL 

LR 

LA 

BAL 

LR 

MVC 

NI 
CLC 

BNE 

LR 

AR 

ST 

LR 

LA 

B 

cw 

,jf> • 

B 



DCHARTBL 



DC 
DC 
DC 
DC 
DC 
DC 



BL5CKB 

PRTP12,1 

BL5CKB 

R0RERR,1 

RDRERRfO 

BL5CKB 

PCHERRfl 

PCHERRfO 

NXTOP 

PRTERR,1 

PRTERR,0 

BL5CKB 

NXTOP 

6tl(10J 

SET BCH 

DCHAR,7(I0) 

6,4(10J 

8,CVAD43 

12,5 

6,1(10} 

8tCVAD4 3 

11,5 

TEMP1(1),0( 12) 

TEMPI, X»BF» 

TEMPltDCHAR 

BCEIB 

12,10 

12,9 

lOjLSTBCH 

10,11 

9,0 

NXTOP 

12f=H 

NXTOP 



Q/ PRINT ERROR 

CLEAR ERROR INDICATOR 

CHECK CONDITION CODE 



SET CONDITIONS FOR BRANCH 
NO, TREAT AS BCE 



COMPARE CHARACTER TO CORE LOCATION 



STORE LOCATION COUNTER BEFORE BRANCH 



*2) 



A(BL5BCH),8A(NXT0P),A(BL59J,2A{NXT0PJ,A(BLI 
4A(NXT0P) ,A{8L51,BL5S) 

A(BL5T,BL5U},4A(NXT0P),A{8L5Z,BL53),7A{NXT0P) 
A(BL5K,BL5L),3A(NXT0PJ , A C BL5P ,NXTOP, BL5P, BL5PER ) 
6A(NXT0D) ,A(BL5A,BL5B,BL5C,BL5D,BL5E,BL5F,BL5G} 
2A{NXTOP5 ,ACBL5RER),5A (NXTOP) 



00038500 
00038600 
00038700 
00038800 
00038900 
00039000 
00039100 
00039200 
00039300 
00039400 
00039500 
00039600 
00039700 
00039800 
00039900 
00040800 
00040200 
00040300 
00040400 
00040500 
00040600 
00040700 
00040900 
00041000 
00041100 
00041200 
00041300 
00041400 
00041500 
00041600 
00041700 
00041800 

f\r\e\t t r^f\r\ 

00042000 

00042100 
00042200 
00042300 
00042400 
00042500 
00042600 



BRANCH OH MORD MARK / ZONE 
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LOC OBJECT CODE 



ADDRl ADDR2 STMT 



SOURCE STATEMENT 



F150CT70 10/28/71 



00064C 










435 




USING 


BWZtlB 




00064C 


4990 


EF66 




03FAE 


436 


BWZ 


CH 


9t==H»l» 




000650 


47B0 


002A 




00676 


437 




BE 


BWZLl 




000654 


4990 


EE70 




03FB8 


438 




CH 


9t=H»8« 




000658 


4770 


F9EE 




02B36 


439 




BNE 


ILEGLNI 




00065C 


416A 


0001 




00001 


440 




LA 


6,1(10J 




000660 


45 80 


FAEO 




02C28 


441 




BAL 


8,CVA043 


000664 


18B5 








442 




LR 


11,5 




000666 


416A 


0004 




00004 


443 




LA 


6,4(10) 




00066A 


4580 


FAEO 




02C28 


444 




BAL 


8,CVAD43 


t. 


00066E 


18C5 








445 




LR 


12,5 




000670 


D200 


ElAD A007 


032F5 


00007 


446 




MVC 


DCHAR t 1 ] 


,7(10) 


000676 


4BC0 


6E66 




03FAE 


447 


BWZLl 


SH 


12,=H»1« 




00067A 


9501 


ElAD 


032F5 




448 




CLI 


DCHAR, X' 


01» 


00067E 


4780 


D07A 




006C6 


449 




BE 


BWZW 




000682 


9502 


ElAD 


032F5 




450 




CLI 


DCHAR, X' 


02 • 


000686 


4780 


D086 




006D2 


451 




BE 


BWZO 




00068A 


9532 


ElAD 


032F5 




452 




CLI 


DCHAR, X' 


32« 


00068E 


4780 


D092 




006DE 


453 




BE 


8WZBA 




000692 


9522 


ElAD 


032F5 




454 




CLI 


DCHAR, X' 


22 • 


000696 


4780 


D09E 




006EA 


455 




BE 


BWZB 




00069A 


9512 


ElAD 


032F5 




456 




CLI 


DCHAR,X' 


12* 


00069E 


4780 


D0B2 




006FE 


457 




BE 


BWZA 




0006A2 


Q503 


ElAD 


032F5 




458 




CLI 


DCHAR, X' 


03« 


0006A6 


4780 


D0C6 




00712 


459 




BE 


BWZWO 




0006AA 


9533 


ElAD 


032F5 




460 




CLI 


DCHAR, X' 


33* 


0006AE 


4780 


00D2 




0071E 


461 




BE 


BWZWBA 




0006B2 


9523 


ElAD 


032F5 




462 




CLI 


DCHAR, X« 


'23» 


0006B6 


4780 


DODE 




0072A 


463 




BE 


BNZWB 




0006BA 


9513 


ElAD 


032F5 




464 




CLI 


DCHAR, X' 


13* 


0006BE 


4780 


DOEA 




00736 


465 




BE 


BWZWA 




0006C2 


47F0 


F9C0 




02B08 


466 




B 


ILEGOP 




0006C6 


9140 


COOl 


00001 




467 


BWZW 


TM 


1(12), X' 


fAAl 


0006CA 


4710 


D0F6 




0074 2 


468 




BO 


BWZBCH 




0006CE 


47F0 


E076 




031BE 


469 




B 


NXTOP 




0006 D2 


9130 


CCOl 


00001 




470 


BWZO 


TH 


1(12) ,X 


•30* 


0006D6 


4780 


D0F6 




00742 


471 




BZ 


BWZBCH 




0006DA 


47F0 


E076 




031BE 


472 




B 


NXTOP 




0006DE 


9130 


COOl 


0000 1 




473 


BWZBA 


TM 


1(12) ,X 


*30« 


0006E2 


4710 


D0F6 




00742 


474 




BO 


BWZBCH 




0006E6 


47F0 


E076 




031BE 


475 




B 


NXTOP 




0006EA 


9120 


COOl 


00001 




476 


BWZB 


TM 


1(12),X" 


'20» 


0006EE 


4780 


E076 




031BE 


477 




BZ 


NXTOP 




0006F2 


9110 


COOl 


00001 




478 




TM 


1 ( 1 2 ) , X ' 


'10« 


0006F6 


4710 


E076 




031BE 


479 




BO 


NXTOP 




0006 FA 


47F0 


D0F6 




00742 


480 




B 


BWZBCH 




0006FE 


9120 


COOl 


00001 




481 


BWZA 


IM 


1(12), X' 


►20» 


000702 


4710 


E076 




031BE 


482 




BO 


NXTOP 




000706 


9110 


COOl 


00001 




483 




TM 


1( 12), X' 


10» 


00070A 


4710 


D0F6 




00742 


484 




BO 


BWZBCH 




00070 E 


47F0 


E076 




031 BE 


485 




B 


NXTOP 




000712 


9140 


COOl 


00001 




486 


BWZWO 


TH 


1( 12), X' 


40* 


000716 


4710 


DDF 6 




00742 


487 




BO 


BWZBCH 




0007 1 A 


47 FO 


DO 86 




006 D 2 


488 




B 


BWZO 




00071E 


9140 


COOl 


00001 




489 


BWZWBA 


TN 


1(12), X' 


►40* 



00042800 
00042900 
00043000 
00043100 
00043200 
00043300 
00043400 
00043500 
00043600 
00043700 
00043800 
00043900 
00044000 
00044100 
00044200 
00044300 
00044400 
00044500 
00044600 
00044700 
00044800 
00044900 
00045000 
00045100 
00045200 
00045300 
00045400 
00045500 
00045600 
00045700 
00045800 
00045900 

\JK/%J-tKJ\J\jr \J 

00046100 
00046200 
00046300 
00046400 
00046500 
00046600 
00046700 
00046800 
00046900 
00047000 
00047100 
00047200 
00047300 
00047400 
00047500 
00047600 
00047700 
00047800 
00047900 
00048000 
00048100 
00046200 



BRAMCH ON WORD HARK / ZONE 



PAGE 



12 



LOC OBJECT CODE 



ADDRl ADDR? STHT 



SOURCE STATEMENT 



Fi&0CT70 10/28/71 



000722 


4 710 


D0F6 


000726 


47F0 


D092 


00072A 


91-^0 


cooi 


00072E 


4710 


OOF 6 


000732 


47 FO 


009 E 


000736 


9140 


COOI 


00073A 


4710 


00F6 


00073E 


47F0 


00B2 


00074? 


50A0 


ElBO 


000746 


18CA 




000748 


1AC9 




00074A 


18AB 




00074C 


4190 


0000 


000750 


47F0 


E076 



00001 



00001 



00742 


490 




SO 


BWZBCH 


006DE 


491 




B 


BWZBA 




492 


BWZHB 


TH 


1( 12)fX»40» 


00742 


49 3 




BO 


BWZBCH 


006EA 


494 




B 


BWZB 




495 


BW2WA 


TH 


1C12J,X»40» 


00742 


496 




BO 


BWZBCH 


006FE 


497 




B 


BWZA 


032 F8 


498 


BWZ8CH 


ST 


10,LSTBCH 




499 




LR 


12,10 




500 




AR 


12,9 




501 




LR 


10,11 


00000 


502 




LA 


9,0 


031BE 


503 




8 


NXTOP 



STORE LOCATION COUNTER BEFORE BRANCH 
SET B-REG 

SET LDCATIOM COUNTER FOR BRANCH 



00048300 
00048400 
00048500 
00048600 
00048700 
0004B800 
00048900 
00049000 
00049100 
00049200 
00049300 
00049400 
00049500 
00049600 



COMPARE 



PAGE 



13 



LOG OBJECT CODE 



ADDRi ADDR2 STHT 



SOURCE STATEMENT 



F150CT70 10/28/71 



000754 
000754 
000758 
00075C 
000760 
000764 
000766 
00076C 
000770 
000774 
000776 
00077A 
00077E 
000780 
000784 
000788 
00078A 
00078C 
000790 
000794 
000798 
00079A 
00079C 
0007A0 
0007A4 
0007A8 
0007AC 
0007B0 
0007B4 
0007B6 
0007B8 
0007BC 

r\nn-rr -> 

0007C8 
0007CE 
0007D4 
0007D8 
00070C 
0007E0 
0007E4 
0007E8 
0007 EC 
0007FO 
0007F4 
0007F8 
0007FE 
000802 
000806 
00080 A 
00080E 
000812 
000813 
000815 
000825 
000835 



4990 
4780 
4990 
4780 
4990 
4770 
41 6 A 
4580 
18C5 
416A 
4580 
18B5 
4990 
4770 
18CB 
18CB 
9200 
4140 
4100 
IBBO 
IRCO 
9140 
4710 
9140 
47 TO 
4144 
47F0 
185& 
186C 
4144 
D200 

ucww 

DCOl 
D500 
4720 
4740 
4155 
4166 
4640 
4990 
4770 
9500 
4780 
0200 
47F0 
9202 
47F0 
9201 
47F0 
00 



EE66 
D038 
EE 6 8 
D022 
EE64 
F9EE 
0004 
FAEO 

0001 
FAEO 

EE68 
D038 



DOBE 
0000 
0001 



cool 

0060 
BOOl 
DOAE 
0001 
0044 



0001 
DOBF 

rxnr r\ 

DOBF 
DOBF 
DOAE 
D0B6 
0001 
0001 
D068 
EE66 
D0A4 
DOBE 
E076 
ElAC 
E076 
DOBE 
0094 
008 E 
D094 



00812 



00001 
00001 



6001 00813 

tzn>n ^ a rv o i /, 

-J <J \J JL. KfUlJ XT 

DOCl 00813 

DOCO 00813 



00812 

DOBE 032F4 

00812 

00812 



03FAE 
00780 
03FB0 
00776 
03FAC 
02B36 
00004 
02C28 

00001 
02C28 

03FB0 
0078C 



00000 
OOOOl 



007B4 

00802 
00001 
00798 



00001 
00001 

rs A A A ■% 
\J\Jl<^JKJ A. 

008 1 5 
00814 
00802 
0080A 
00001 
00001 
007BC 
03FAE 
007 FB 

031BE 
00812 
031 BE 

007E8 

007E8 



003738393A3B3C3D 
130D2E2F30313233 
0C2425262728292A 



505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 

KIT 
^^ t 

538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
55 7 
558 
559 



CL4 



CLl 



CI 



C2 



C3 



C4 



C4A 
C5 

C6 

TCPR 

TCR 

CPRTBL 



USING C*13 

CH 9 , =H »" 1 • 

BE CLl 

CH 9,=H»4* 

BE CL4 

CH 9,=H«7» 

BNE I LEGEM 

LA 6,4(10) 

BAL 8,CVAD43 

LR 12,5 

LA 6tl(10) 

BAL 8,CVAD43 

LR 11,5 

CH 9,=H»4» 

BNE CLl 

LR 12,11 

LR 12,11 

MVI TCPR,0 

LA 4,0 

LA 0,1 

SR 11,0 

SR 12,0 

TH 1(12),X»40» 

BO C2 

TM l(ll),X«40« 

BO C5 

LA 4,1(4) 

B CI 

LR 5,11 

LR 6,12 

LA 4,1(4) 

MVC TCR (1), If 6) 

hAMf T A a j.-t I t ^ ■% t c \ 

TR TCR (2), CPRTBL 

CLC TCR(l) ,TCR>1 

BH C5 

BL C6 

LA 5,1(5) 

LA 6,1(6) 

BCT 4,C3 

CH 9,=H»1» 

BNE C4A 

CLl TCPR,0 

BE NXTOP 

MVC CPR,TCPR 

B NXTOP 

mi TCPR, 2 

B C4 

MVI TCPR,1 

B C4 

DC X»00» 

DS CL2 

DC HL1«0,55,56,57 

DC HLm9, 13,46,4 

DC HLl'12,36,37,3 



CONVERT A-ADDR TO 360 FORHAT 

Q/ IS INSTRUCTION 4 CHARACTERS 

NO 

YES, FORS 

YES, FORCE B/AODR = A/ADDR 

INITIALIZE COMPARE RESULT TO EQUAL 



LONG B-FIELO 



CONVERT DIGITS TO SORT SEQUENCE 



SET HIGH 
SET LOW 




00049800 
00049900 
00050000 
00050100 
00050200 
00050300 
00050400 
00050500 
00050600 
00050700 
00050800 
00050900 
00051000 
00051100 
00051200 
00051300 
00051400 
00051500 
00051600 
00051700 
00051800 
00051900 
00052000 
00052100 
00052200 
00052300 
00052400 
00052500 
00052600 
00052700 
00052800 
00052900 

AAA c nrtnn 

\J\J\J ^ 3\JK/\J 

00053100 
00053200 
000 53300 
00053400 
00053500 
00053600 
00053700 
00053800 
00053900 
00054000 
00054100 
00054200 
00054300 
00054400 
00054500 
00054600 
00054700 
00054800 
00054900 
00055000 
00055100 
000 55200 





commE 




LOG 


OBJECT CODE ADDRl ADDR2 


STMT 


000845 


061A1B1C1D1EIF2:0 


560 


000855 


003738393A353C30 


561 


00086 5 


130D2E2F30313233 


562 


000875 


0C242526272S292A 


563 


000885 


061A1B1C1D1E1F20 


564 
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SOURCE STATEMENT 



F150CT70 10/28/71 



DC 
DC 
DC 
DC 
DC 



HL 1 • 6 1 26 , 27 , 28 , 2 9 , SO , 3 1 , 32 , 33 , 34 , 2 5 1 1 f 2 , 3 1 4- , 5 • 000 55 300 

HL1« 0*55,56, 57*58,59, 60, 61 ,62,63, 54,20,2 It 22, 23, 24* 00055400 

HL 1» 19, 13, 46, 47, 48, 49, 50, 5 1,52, 53, 45, 14, 15, 16,1 7, 18 » 00055500 

HL1» 12, 36, 37, 38, 39,40, 41, 42, 43,44,35,7, 8, 9, 10,1 1» 00055600 

HLl •6, 26, 27, 28, 29, 30, 3 1,32, 33, 34, 25, 1,2,3,4,5* 00055700 



HALT 
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LOC 

000896 
000895 
000896 
00089A 
000S9E 
0008A2 
0008A6 
0008 A A 
0008AE 
0008B2 
0008B6 
000888 
0008BA 
0008BE 
0008C4 
0008CA 
0008CE 
000802 
0008D6 
0D080A 
0008DE 
0008E4 
0008 E A 
0008EE 
0008F2 
0008F6 
0008FA 
0008FE 
000902 
000906 
00090C 
000910 
000914 
000918 
0009 IE 
000922 
000926 
00092A 
00092E 
000932 
000936 
00093A 
000940 
000944 

00094A 
00094E 
000952 
000956 
000958 
00095A 
00095F 
000962 
000966 
000968 
00096C 



OBJECT COC 


)E 


ADDRl 


ADDR2 


ST^IT 












566 


00 












4990 


EE66 






03FAE 


56 7 


4780 


D020 






008B6 


568 


4990 


EE74 






03FBC 


569 


4780 


D020 






008B6 


570 


4990 


EE68 






03FB0 


571 


4780 


DQ20 






008B6 


572 


4990 


EE64 






03FAC 


573 


4770 


F9EF 






02B36 


574 


185A 










575 


1A59 










576 


4580 


DODO 






00966 


577 


0205 


D102 


D0F6 


00998 


0098C 


578 


0205 


FBF3 


D0F6 


0203B 


0098C 


579 


9211 


FBE9 




02D31 




580 


4990 


EE74 






03FBC 


581 


4740 


D08C 






00922 


582 


4720 


005C 






008F2 


583 


92C4 


FBFB 




02D43 




584 


D200 


FBFO 


AOOl 


02D45 


0000 1 


585 


DCOO 


FBFD 


EA14 


2D45 


03&5C 


586 


9216 


FSE9 




02D31 




587 


47F0 


008C 






00922 


588 


92C1 


FBFB 




02D43 




589 


4740 


D08C 






00922 


590 


416A 


0001 






0000 1 


591 


4580 


FAEO 






02C28 


592 


4580 


OODO 






00966 


593 


0205 


FBFC 


D0F6 


02D44 


0098C 


594 


416A 


0004 






00004 


595 


4580 


FAEO 






02C28 


596 


4580 


DODO 






00966 


597 


D205 


FC05 


D0F6 


02 040 


009BC 


598 


9223 


F8E9 




02031 




599 


4580 


FB06 






020 IF 


600 


4990 


eE68 






03FB0 


601 


4770 


D0A4 






009 3 A 


602 


4 16 A 


0001 






00001 


603 


4580 


FAEO 






02C28 


604 


5050 


FB60 






02CA8 


605 


D505 


0102 


DOFC 


00998 


00992 


606 


4780 


F810 






02958 


607 


0203 


E530 


EOF 4 


03678 


03F3C. 


608 


47F0 


F08C 






021D4 


609 


4990 


EE6B 






03FB0 


610 


4770 


E076 






03IBE 


611 


1 8CA 










612 


1AC9 










613 


58A0 


FB60 






02CAB 


614 


419n 


0000 






00000 


615 


47F0 


ro76 






031BE 


616 


1B57 










617 


4E50 


E3Ce 






03510 


618 


F352 


D0F6 


E3CD 


0098C 


03515 


619 



HI 



HIA 



H2 



H3 



H4 



E STATE 


:MEUT 




F150CT70 


10/28/71 


USING 


Hfl3 








000 55900 


CH 


9,=H«1* 








00056000 


BE 


HI 








00056100 


CH 


9,=H»2« 




IS IT A 2-POS HALT? 


TAB 


00056110 


BE 


HI 




YES, GO PROCESS 


TAB 


00056120 


CH 


9,=H»4« 








00056200 


BE 


HI 








00056300 


CH 


9t=H«7» 








00056400 


BNE 


ILEGLN 








00056500 


LR 


5tl0 


CONVERT I ADDRESS 




00056600 


AR 


5,9 




ADD LENGTH TO I - LOC 


TAB 


00056610 


BAL 


8,H5 




* 




00056700 


MVC 


HLTIAR^HLTADARA 




lAR TO SAVE AREA 


TAB 


00056710 


MVC 


HLTWT0+15{6)tHLTADARA 


MOVE I ADDRESS TO OUTPUT 




00056800 


mi 


HLTWT0+5tl7 


HOVE 


LENGTH TO WTO 




00056900 


CH 


9,=H»2« 




2~P0S HALT? 


TAB 


00057005 


BL 


H2 




NO, 1-POS lAR ONLY 


TAB 


00057010 


BH 


HIA 




> 2 POS - PRINT AAR £ BAR 


TAB 


00057015 


MVI 


HLTWT0+23,C»D» 




2-POS HALT - PRINT D-MOO 


TAB 


00057020 


mc 


HLTWT0+25(1) tl(lO) 


D-MOD TO WTO 


TAB 


00057025 


TR 


HLTWT0+25{1),TRIE 




TRANS D-mOD TO EBCDIC 


TAB 


00057030 


MVI 


HLTHTO+5,22 




SET WTO LENGTH 


TAB 


00057035 


B 


H2 




GO PRINT THE MESSAGE 


TAB 


00057040 


NVl 


HLTWT0+23,C»A« 




REPLACE THE A FOR 7-POS HLT TAB 


00057045 


BL 


H2 




NO 




00057100 


LA 


6,1(10* 


CONVERT 1401 ADDRESS 




00057200 


BAL 


8tCVAD43 


* 






00057300 


BAL 


8,H5 




* 




00057400 


HVC 


HLTWT0+24(6),HLTADARA 


MOVE A ADDRESS TO OUTPUT 




00057500 


LA 


6,4(10) 


CONVERT 1401 B ADDRESS 




00057600 


BAL 


8,CVAD43 


^ 






00057700 


R A r 


Q Mc; 




■j^ 




AAA K TQ f\f\ 


t5A L 


C5 , ri!> 




jp 




UUU3 f OUU 


mc 


HLTWT0+33(6),HLTADARA 


MOVE B ADDRESS TO OUTPUT 




00057900 


HVI 


HLTWTO+5,35 


HOVE 


LENGTH TO WTO 




00058000 


BAL 


8,HALTWT0 




PRINT HALT ON TYPEWRITER 




00058100 


CH 


9,=H»4» 








00058200 


B!ME 


H3 








00058300 


LA 


6,1(10) 








00058400 


BAL 


8,CVAD43 








00058500 


ST 


5,ADR360 








00058600 


CLC 


HLTIAR,E0J1AR 




IS THIS EOJ? 


TAB 


00058700 


BE 


TERHINAT 




YES, GO END SIH1401 


TAB 


00058710 


mc 


RETURN,=A(H4) 








00058720 


B 


NTORTN 








00058800 


CH 


9,=H«4» 


Q/ BRANCH 




00058900 


BNE 


NXTOP 








00059000 


LR 


12,10 








00059100 


AR 


12,9 








00059200 


L 


10,ADR360 








00059300 


LA 


9,0 








00059400 


B 


NXTOP 








00059500 


SR 


5,7 


GET 


1401 ADDRESS 




00059600 


CVD 


5,PAKT 


CONVERT TO DECIMAL 




00059700 


UNPK 


HLTADARA(6) ,f>AKT + 5(3) 


UNPACK 1401 ADDRESS 




00059800 



HALT 
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. J-OC 


OBJECT CODE 


A DDR I 


ADDR.2 


STMT 


SOURCE 


STAT 


EMENT 




F 


150CT70 


10/28/71 


000972 


96F0 DOFB 


00991 




620 




01 


HLTADARA+5tX»F0> 




HAKE SIGN NUMERIC 




000 59900 


000976 


4110 D0F6 




009eC 


621 




LA 


1, HLTADARA 




BLANK LEADING ZEROS 




00060000 


00097A 


95F0 1000 


00000 




622 


H6 


CLI 


0(1),C«0» 


<^ 






00060100 


0009 7 E 


0768 






623 




BCR 


6,8 




* 




00060200 


000980 


9240 1000 


00000 




624 




NVI 


0{ l)tX»40» 




* 




00060300 


000984 


4111 0001 




00001 


625 




LA 


1,1(1) 




* 




00060400 


000988 


47F0 D0E4 




009 7 A 


626 




B 


H6 


* 






00060500 


00098C 


404040404040 






627 


HLTADARA 


DC 


CL6« • 








00060600 


000992 


404040404040 






628 


EOJIAR 


DC 


CL6« » 




EOJ lAR FROM PARN FIELD 


TAB 


00060610 


000998 


404040404040 






629 


HLTIAR 


DC 


CL6» • 




HALT lAR 


TAB 


00060620 





CLEAR STORAGE 
















LOC 


OBJECT CODE 


ADDRl 


ADDR2 


STMT 


SOURi 


CE STATE 


HEHl 




00099E 








631 




USING 


CS,13 




00099E 


4990 EE66 




03FAE 


632 


cs 


CH 


9,=H»1» 




0D09A2 


4780 D030 




009CE 


633 




BE 


CSLl 




0009A6 


4990 EE68 




03FB0 


634 




CH 


9,=H»4« 




0009AA 


4780 DO 2 6 




009C4 


635 




BE 


CSL4 




0009 A E 


4990 EE64 




03FAC 


636 




CH 


9,=H«7* 




0009B2 


4740 F9EE 




02B36 


637 




BL 


ILEGLN 




0009B6 


D202 D06C AOOl 


OOAOA 


00001 


638 




HVC 


HLDBCH (3), 1(101 




0009BC 


416A 0004 




00004 


639 




LA 


6,4(10) 




0009C0 


47F0 D02A 




G09C8 


640 




B 


CSCON 




0009C4 


416A 0001 




00001 


641 


CSL4 


LA 


6,1(10) 




000908 


4580 FAEO 




02C28 


642 


CSCOH 


BAL 


8,CVAD43 




0009CC 


18C5 






643 




LR 


12,5 




0009CB 


183C 






644 


CSLl 


LR 


3,12 




0009D0 


1B37 






645 




SR 


3,7 


SUBTRACT SIMULATED C^ 


000902 


4120 0000 




00000 


646 




LA 


2,0 




0009D6 


5D20 EDF8 




03F40 


647 




D 


2,=F*100» 




0009DA 


1BC2 






648 




SR 


12,2 




0009DC 


4220 D043 




009E1 


649 




STC 


2,CSL1A+1 




0009E0 


0700 COOO COOO 


00000 


ODOOO 


650 


CSLIA 


XC 


0(0, 12), 0(12) 


CLEAR CORE BLOCK 


0009E6 


19C7 






651 




CR 


12,7 


0/ DID B-REG GO TO 


0009E8 


4770 0058 




009 F6 


652 




BNE 


CS2 


MO 


0009EC 


58C0 EDFC 




03F44 


653 




L 


12, =F« 15999 » 




0009F0 


1AC7 






654 




AR 


12,7 




0009F2 


47F0 D05C 




009FA 


655 




B 


CS3 


♦ 


0009F6 


4BC0 EE66 




03FAE 


656 


CS2 


SH 


12,=H»1' 


SUBTRACT 1 FROH B-RE 


0009FA 


4990 EE64 




03FAC 


657 


CS3 


CH 


9,=H»7« 


Q/ IS THERE A BRANCH 


0009FE 


4740 E076 




031BE 


658 




BL 


NXTOP 




000A02 


4160 006 C 




OOAOA 


659 




LA 


6, HLDBCH 




0OOA06 


47F0 F97E 




62AC6 


660 




B 


SETBCH 




OOOAOA 








661 


HLDBCH 


OS 


CL3 
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CORE BASE LOCATION 



F150CT70 10/28/71 



00060800 
00060900 
00061000 
00061100 
00061200 
00061300 
00061400 
00061500 
00061600 
00061700 
00061800 
00061900 
00062000 
00062100 
00062200 
00062300 
00062400 
00062500 
00062600 
00062700 
00062800 
00062900 
00063000 
00063100 
00063200 
00063300 
00063400 
00063500 
00063600 
00063700 
00063800 



SET WORD NARK 



PAGE 



18 



LOG OBJECT CODE 



ADORl ADDR2 STMT 



SOURCE STATEMENT 



F15OCT70 10/28/71 



OOOAOE 








663 


USING 


SW.13 


OOOAOD 


00 












OOOAOE 


4990 


EE76 


3FBE 


664 SW 


CH 


9,=H»6» 


OOOAl? 


47B0 


0034 


00A4? 


665 


BNL 


SWL7 


000AI6 


4990 


EE68 


03F80 


666 


CH 


9,=H»4' 


OOOAl A 


4780 


DOIC 


00A2A 


667 


BE 


SWL4 


OOOAIE 


4990 


EE66 


03FAE 


668 


CH 


9,=H»1' 


000A2? 


4780 


D048 


D0A56 


669 


BE 


SWLl 


000A26 


47F0 


F9EE 


02B36 


670 


B 


ILEGLN 


0O0A2A 


416A 


0001 


00001 


671 SiAlL4 


LA 


6,1(10) 


000A2E 


4580 


FAEO 


02C28 


672 


BAL 


8,CVA043 


000A32 


18B5 






673 


LR 


llf5 


000A34 


9640 


BOOO 


00000 


674 


01 


0(11 J,X»40» 


000A38 


48B0 


EE66 


03FAE 


675 


SH 


11,=H«1» 


000A3C 


18CB 






676 


LR 


12tll 


000A3E 


47F0 


E076 


031BE 


677 


B 


NXTOP 


000A42 


4 16 A 


0001 


00001 


678 SWL7 


LA 


6,1(10) 


000A46 


4580 


FAEO 


02C28 


679 


BAL 


8,CVAD43 


000A4A 


1885 






680 


LR 


11,5 


000A4C 


416A 


0004 


00004 


681 


LA 


6,4(10) 


000A50 


4580 


FAEO 


02C28 


682 


BAL 


8,CVAD43 


000 A 54 


18C5 






683 


LR 


12,5 


000A56 


9640 


BOOO 


00000 


684 SWLl 


01 


0(ll)tX'40' 


000A5A 


9640 


COOO 


OOOOG 


685 


01 


0( 12),X»40» 


000A5E 


4BB0 


EE66 


03FAE 


686 


SH 


11,=H»1» 


000A62 


4BC0 


EE66 


03FAE 


687 


SH 


12,=H«1* 


000A66 


4990 


EE64 


03FAC 


688 


CH 


9,=H»7« 


000A6A 


47 DO 


E076 


0318E 


689 


BNH 


NXTOP 


000A6E 


4190 


0007 


00007 


690 


LA 


9,7 


000A72 


47F0 


E076 


0318E 


691 


B 


NXTOP 



00064000 

00064100 
00064200 
00064300 
00064400 
00064500 
00064600 
00064700 
00064800 
00064900 
00065000 
00065100 
00065200 
00065300 
00065400 
00065500 
00065600 
00065700 
00065800 
00065900 
00066000 
00066100 
00066200 
00066300 
00066400 
00066500 
00066600 
00066700 
00066800 



CLEAR mRQ nkRK 



PAGE 
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LOC OBJECT CODE 



ADDRl ADDRZ STMT 



SOURCE STATEMENT 



F130CT70 10/28/71 



000A76 






0DOA76 


4990 


Ee76 


000A7A 


47 BO 


D034 


000A7E 


4990 


EE68 


OOOA82 


4780 


001 c 


000A86 


4990 


EE66 


000A8A 


4780 


0048 


000A8E 


47F0 


F9EE 


000A92 


416A 


0001 


000A96 


4580 


FAEQ 


000A9A 


IBBS 




O0OA9C 


94 BF 


BOOO 


000 A AO 


4BB0 


EF66 


O0OAA4 


18CB 




000AA6 


47F0 


E076 


OOOAAA 


4I6A 


0001 


OOOAAE 


4580 


FAEO 


0OOAB2 


18B5 




000AB4 


416A 


0004 


000AB8 


4580 


FAEO 


OOOABC 


18C5 




OOOABE 


94BF 


BOOO 


000AC2 


94BF 


cooo 


00dAC6 


4BB0 


FF66 


OOOACA 


4BC0 


EF66 


000 ACE 


47F0 


E076 





693 


03-FBE 


694 


OOAAA 


695 


03FB0 


696 


0OA92 


697 


03FAE 


698 


OOABE 


699 


02B36 


700 


00001 


701 


02C28 


702 




703 


00000 


704 


03FAE 


705 




706 


031BE 


707 


00001 


708 


02C28 


709 




710 


00004 


711 


02C28 


712 




713 


00000 


714 


00000 


715 


03FAE 


716 


03FAF 


717 


031BE 


718 



CW 



CWL4 



CWL7 



CWLl 



USING 

CH 

BML 

CM 

BE 

CH 

BE 

B 

LA 

BAL 

LR 

HI 

SH 

LR 

B 

LA 

BAL 

LR 

LA 

BAL 

LR 

NI 

NI 

SH 

SH 

B 



CWtl3 

9t=H*6* 

CWL7 

9 1 =H • 4 • 

CWL4 

9,=H'1» 

CWLl 

I LEGEM 

6,U10) 

8,CVAD43 

11,5 

0(ll)tX»BF« 

11,=H»1» 

12tll 

NXTOP 

6,1(10) 

8,CVAD43 

11 f 5 

6,4(10} 

8,CVAD43 

12,5 

0(11),X»BF» 

0(12) ,X»BF» 

11,=H»1« 

12,=H«1» 

NXTOP 



00067000 
00067100 
00067200 
00067300 
00067400 
00067500 
00067600 
00067700 
00067800 
00067900 
00068000 
00068100 
00068200 
00068300 
00068400 
00068500 
00068600 
00068700 
00068800 
00068900 
00069000 
00069100 
00069200 
00069300 
00069400 
00069500 



HOVE CHARACTERS TO A WORD MARK 



PAGE 
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LOG OBJECT CODE 



ADDRl ADDk2 stmt 



SOURCE STATEf4ENT 



F150CT70 10/28/71 



000AD2 
000AD2 
000A06 
OOOADA 
OOOAOE 
000AE2 
000AE6 
OOOAEA 
OOOAEE 
OOOAFZ 
000AF6 
OOOAFA 
OOOAFE 
OOOBOO 
000B04 
000B08 
OOOBOA 
OOOBOE 
000B14 
000B18 
OOOBIC 
000B20 
00OB22 
000B24 
OOOB28 
000B2C 
000B30 
000B34 
000B38 
000B3E 
00DB42 
000B46 



4990 
4780 
4990 
4780 
4990 
4780 
4990 
4780 
47F0 
416A 
4580 
ISC 5 
416A 
4580 
18B5 
4100 
0200 
943F 
9440 
9600 
IBBO 
IBCO 
9140 
4710 
9140 
4780 
47F0 
D200 
9529 
4780 
9516 



EE64 
D024 
EE68 
002 E 
EE66 
0038 
EE70 
D066 
F9EE 
0004 
FAEO 

0001 

FAEO 

0001 
D04B 
D04B 
COOO 
COOO 



BOOl 
E076 
COOl 
003 C 
E076 
ElAD 
El AD 
D090 
ElAD 



03FAC 
00AF6 
03F30 
OOBOO 
03FAE 
OOBOA 
03FB8 
00B38 
02B36 
00004 
02C28 

00001 

02C28 

00001 
00000 



BO 00 OOBID 
OOBID 
00000 
00000 



00001 

031BE 
00001 

OOBOE 

031BE 
A007 032F5 00007 
032F5 

00B62 
032F5 



720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
748 
749 
750 
751 



USING HCW,I3 

HCW CH 9«=H*7* 

BE MCWL7 

CH 9,=H»4» 

BE MCWL4 

CH 9,=H»1* 

BE MCWLl 

CH 9,=H»B» 

BE HCW8 

B ILEGLN 

LA 6,4(10) 

BAL 8,CVAD43 

LR 12,5 

LA 6,1(10) 

BAL 8,CVA043 

LR 11,5 

LA 0,1 

MVC HCWL1A+1(1) ,0(11) 

HI NiCWLlA+l,X 'SF* 

HI 0{12),X»40» 

01 0(12),0 

SR 11,0 

SR 12,0 

TM 1(11),X»40» 

BO NXTOP 

TN 1C12),X«40» 

BZ HCWLIB 

B NXTOP 

MCWB HVC DCHARd) ,7(10) 

CLI DCHAR,X»29» 

BE RT 

CLI DCHAR,X»16» 



HCWL7 



MCWL4 



HCWLl 
MCWLIB 



HCWLIA 



00069700 
00069800 
00069900 
00070000 
00070100 
00070200 
00070300 
00070400 
00070500 
00070600 
00070700 
00070800 
00070900 
00071000 
00071100 
00071200 
00071300 
00071400 
00071500 
00071600 
00071700 
00071800 
00071900 
00072000 
00072100 
00072200 
00072300 
00072400 
00072500 
00072600 
00072700 
00072800 



000B4E 
000B52 
000B56 
000B5A 

00085E 



9531 

4780 
9532 
4780 
47 FO 



ElAD 
D23A 
ElAD 

023A 
F9C0 



032F5 



032F5 



000B62 


416A 


0004 


000B66 


4580 


FAEO 


000B6A 


18C5 




000B6C 


45B0 


FFDO 


000B70 


4580 


FF3C 


000B74 


4580 


FF3A 


000B7B 


9201 


E1C6 


000B7C 


9114 


A002 


000B80 


4710 


DOBA 


000384 


4580 


FF3A 


000388 


9200 


E1C6 


000B8C 


5030 


F92 4 


OOOB90 


0203 


F920 


000B96 


90DF 


E4A0 



0330E 
00002 



0330fc 



EEOO 02A68 



OODOC 

OODOC 

02B08 



00004 
02C28 

03118 
03084 
03082 



00B8C 

03082 

02A6C 
03F48 
035E8 



753 
754 
755 
756 
757 
758 
759 
760 
761 
762 
763 
764 
765 
766 
767 
768 
769 
770 
771 
772 
773 
774 



CLI DCHAR,X»3I» 

BE MBD 

CLI DCHAR,X«32» 

BE MBO 

B ILEGOP 

READ TAPE WITHOUT WORD HARKS 



RT LA 6,4(10) 

BAL 8,CVAD43 

LR 12,5 

BAL 8,FNDRIV 

BAL 8,TST0PEN 

BAL 8,L0ADNSD 

MVI BCDTAP,! 

TM 2{10),X»14» 

BO RTl 

BAL 8,BINH0D 

MVI BCDTAP, 

RTl ST 3,TMDCB 

MVC TPCCW,=aCRTCCW) 

STM 13,15,MACREGSV 



C0\5VERT CORE LOCATION FOR TAPE READ 



GET DEVICE ADDRESS 



SET BINARY 



SAVE MACRO REGS 



00073000 
00073100 
00073200 
00073300 
00073400 
00073500 
00073600 
00073700 
00073800 
00073900 
00074000 
00074100 
000 74200 
00074300 
00074400 
00074500 
00074600 
00074700 
00074800 
000 74900 
00075000 
00075100 



HOVE CHARACTERS TO A WORD MARK 
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LOG OBJECT CODE 



ADDRl ADDR 



STMT 



SOURCE STATEMENT 
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0O0B9A 4160 E4A0 
000B9E 41 DO E4 58 

0O0BA2 4110 F910 
000BA6 OAOO 
000BA8 98EF 6004 



0008 AC 
OOOBBO 
000BB4 
000BB6 
OOOBBA 
OOOBBE 
0003C2 
000BC4 
000BC8 
OOOBCC 
000 B DO 
000SD2 
000B04 
000BD8 
OOOBOA 
OOOBDE 
000BE2 
OOOBEB 
OOOBEC 
OOOBFO 
000BF6 
OOOBFC 
OOOCOO 
0O0C04 



4110 
4100 
OAOl 
98DF 
4580 
45B0 
18 36 
5810 
48 50 
4840 
1B45 
1934 
47 DO 
1834 
4930 
47D0 
04FF 
9501 
4770 
OCFF 
06FF 
4111 
41CC 
4330 



F930 
0001 

6000 
EOlO 

FFB6 

EICO 

E4EE 

EE78 



0108 

EE7A 
D13A 
COOO 
E1C6 
0124 
1000 
COOO 
0100 
0100 
EE7A 



F2C3 00000 
0330F 

E9I4 00000 
1000 00000 



000C08 47F0 D108 



035E8 
035A0 

02A58 

00004 

02A7B 
00001 

00000 
03158 
030FE 

03308 
03636 

3FC0 



OOBDA 

03FC2 
OOCOC 
034 OB 

008F6 
03A5C 
00000 
00100 
00100 
03FC2 
OOBDA 



775 

776 

111 

11 B + 

779+ 

780 

781 

782+ 

783+ 

784+ 

785 

786 

787 

788 

789 

790 

791 

792 

793 

794 

795 

796 

797 

798 

799 

800 

801 

802 RT3A 

803 

804 

805 

806 



RT3 



LA 

LA 

EXCP 

LA 

SVC 

LM 

WAIT 

LA 

LA 

SVC 

LN 

BAL 
BAL 
LR 

L 
LH 

LH 
SR 
CR 
BNH 
LR 
CH 
BNH 
NC 
CLI 
BNE 
TR 
OC 
LA 
LA 
SH 



6,MACREGSV 
13 » SAVE AREA 
TMIOB 
1,THI0B LOAD 

ISSUE SVC 
14tl5,4{6} 
1,ECB=THECB 
ItTMECB LOAD 
0,1(0,0) LOA 

1 LINK TO WA 
13*15,0(6) 
8,TPTEST 
8,FNDLNG 
3,6 

1, TAPE ARE A 

5,SAVCSW+6 

4,=H»18000« 

4,5 

3,4 

RT3 

3,4 

3,=H»256» 

RT4 

0(256,12) ,WH 

BCDTAP,! 

RT3A 

0(256, 1),TRE 

0(256,12) ,0( 

1,256(1) 

12,256(12) 

3,=H»256« 

RT3 



SAVE ADDRESS TO XR 
GIVE OS OUR SAVE AREA 

PARAMETER REG 1 
FOR EXCP 

RESTORE REG 14 AND 15 
NAIT FOR I/O 
PARAHETER REG 1 
D PARAMETER REG 
IT ROUTIME 

RESTORE MACRO REGISTERS 

FIND LENGTH OF B~FIELD 

SET SENDING ADDRESS 

FIND NUMBER OF BYTES READ 

USE SMALLER FIELD 

Q/ MORE THAN 256 BYTES 
NO 
256 YES, MOVE 256 BYTES 

I 

1) * 



000 75200 
00075300 
00075400 



00075500 
00075600 



00075700 
00075800 
00075900 
00076000 
00076100 
000 76200 
00076300 
00076400 
00076500 
00076600 
00076700 
00076800 
00076900 
00077000 
00077100 
00077200 
00077300 
00077400 
00077500 
00077600 
00077700 
00077800 



OOOCIO 
000C14 
000C18 
OOOCIC 
000C22 
000C26 
000C2A 
000C30 
000C36 
000C38 
000C3C 
000C40 
000C44 



4230 
4230 
4230 
D400 
9501 
4770 
DCOO 
D600 
1AC3 
9440 
963F 
4 ICC 
47F0 



D14B 
D159 
01 5 F 
COOO 
E1C6 
D15E 
1000 
COOO 

cool 

COOl 
0002 
F076 



00OC48 


416A 


0004 


000C4C 


4580 


FAEO 


000C50 


18C5 




000C52 


4580 


FFB6 


000C56 


4060 


E4FE 


000C5A 


184C 





E2C3 00000 

0330E 

E914 00000 
1000 00000 

00001 

00001 



OOCID 
00C2B 
00C31 

0340B 

00C30 
03A5C 
00000 



00002 
031BE 



00004 

02C28 

030FE 
3646 



808 
809 
810 
811 
812 
813 
814 
815 
816 
817 
818 
819 
820 
821 
822 
823 
824 
825 
826 
827 
828 
829 



RT5 



RT6 
RT7 






STC 3,RT5+1 

STC 3,RT6+1 

STC 3,RT7+1 

NC 0{0,12),WM256 

CLI BCDTAP, 1 

BNE RT7 

TR 0(0,1),TREI 

OC 0(0,12),0{1) 

AR 12,3 

NI 1(12),X»40» 

01 1(12),X«3F« 

LA 12,2(12) 

B NXTOP 



SET GROUP MARK AFTER DATA 

* 

SET B-ADDRESS 

END OF TAPE READ INSTRUCTION 



WRITE TAPE WITHOUT WORD MARKS 



LA 6,4(10) 

SAL 8,CVA043 

LR 12,5 

BAL 8,FNDLNG 

STH 6,WTCCW2+6 

LR 4,12 



STORE LENGTH IN CCw 



00078000 
00078100 
00078200 
00078300 
00078400 
00078500 
00078600 
00078700 
00078800 
00078900 
000 79000 
00079100 
00079200 
00079300 
00079400 
00079500 
00079600 
00079700 
00079800 
00079900 
00080000 
000 80100 



NOVE CHARACTERS TO A WORD HARK 
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LOC OBJECT CODE 



ADORl ADDR2 STMT 



SOURCE STATEMENT 
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000C5C 


1AC6 








8 30 




AR 


12,6 


SET B-AODRESS 


000C5E 


4 ICC 


0001 




00001 


831 




LA 


12,1(12) 




000C62 


5830 


EICO 




03308 


8 32 




L 


3,TAPEAREA 




000C66 


9201 


E1C6 


0330E 




833 




HVI 


RCDTAP,! 


^ 


000C6A 


9514 


A 00 2 


00002 




834 




CLI 


2(10},X»I4» 


0/ IS IMSTRUCTION BCi 


000C6E 


4780 


01 A4 




00076 


835 




BE 


WTl 


YES 


000C72 


9200 


E1C6 


0330E 




836 




MVI 


BCD TAP, 


* 


000C76 


4960 


EE7A 




03FC2 


837 


WTl 


CH 


6,=H»256» 




000C7A 


47D0 


DIDO 




00CA2 


838 




BNH 


WT2 




000C7E 


D2FF 


3000 4000 


00000 


00000 


839 




HVC 


0(256^3), 0(4) 




000C84 


9501 


E1C6 


0330E 




840 




CLI 


8C0TAP,1 


Q/ BCD 


000C88 


4770 


DICO 




00C92 


841 




BNE 


WTIA 


HO 


00QC8C 


DCFF 


3000 EA14 


00000 


03B5C 


842 




TR 


0(256, 3), TRIE 


YES, CHANGE X»00» TO 


000C92 


4133 


0100 




00100 


843 


mik 


LA 


3,256(3) 


UP REG 3 BY 256 


000C96 


4144 


0100 




00100 


844 




LA 


4,256(4) 




000C9A 


4B60 


EE7A 




03FC2 


845 




SH 


6,=H«256» 




000C9E 


47F0 


D1A4 




00C76 


846 




B 


mi 




000CA2 


4260 


0109 




OOCAB 


847 


WT2 


STC 


6fWT3+l 




000CA6 


4260 


D1E7 




00CB9 


848 




STC 


6,WT4+1 




OOOCAA 


D200 


3000 4000 


00000 


00000 


849 


WT3 


HVC 


0(0, 3), 0(4) 




OOOCBO 


9501 


E1C6 


0330E 




850 




CLI 


BCDTAP,! 


0/ BCD 


000CB4 


4770 


DIEC 




OOCBE 


851 




BNE 


WT4A 


NO 


000CB8 


DCOO 


3000 EA14 


00000 


03B5C 


852 


WT4 


TR 


0(0, 3), TRIE 


YES, CHANGE X»00» TO 


OOOCBE 


4580 


FFOO 




03118 


853 


WT4A 


BAL 


8,FNDRIV 


GET DEVICE ADDRESS 


000CC2 


4580 


FF3C 




03084 


854 




BAL 


8,TST0PEN 




000CC6 


4580 


FF3A 




03082 


855 




BAL 


BtLOADMD 




OOOCCA 


9514 


A002 


00002 




856 




CLI 


2(10),X»14» 




OOOCCE 


4780 


D204 




00CD6 


857 




BE 


WTIB 




OOOCD? 


4580 


FF3A 




03082 


858 




BAL 


8,BINM0D 




000CD6 










859 


WTIB 


EQU 


* 




000CD6 


5030 


F924 




02A6C 


860 




ST 


3,TNDCB 




OOOCDA 


D203 


F920 EE04 


02A68 


03F4C 


861 




MVC 


TPCCW,=ACWTCCW1) 


OOOCEO 


90DF 


E4A0 




035E8 


862 




STM 


13.15,MACREGSV 


SAVE MACRO REGS 


000CF4 


4160 


F4A0 




035E8 


863 




LA 


6,MACREGSV 


SAVE ADDRESS TO XR 


OOOCEB 


4100 


E458 




035A0 


864 
865 




LA 
EXCP 


13,SAVEAREA 
TMIOB 


GIVE OS OUR SAVE AREA 


OOOCEC 


4110 


F910 




02A58 


866+ 




LA 


1,TH10B LOAD PARANETER REG 1 


OOOCFO 


OAOO 








867+ 




SVC 


ISSUE SVC FDR 


excp 


000CF2 


98EF 


6004 




00004 


868 
869 




LH 
WAIT 


14,15,4(6) 

1,ECB=THECB 


RESTORE REG 14 AMD 15 
WAIT FOR I/O 


000CF6 


4110 


F930 




02A78 


870+ 




LA 


1,T^4ECB LOAD PA 


RAMETER REG 1 


doc FA 


4100 


0001 




00001 


871 + 




LA 


0,1(0,0) LOAD PARANETER REG 


OOOCFE 


OAOl 








872 + 




SVC 


1 LINK TO WAIT 


ROUTINE 


000000 


98DF 


6000 




00000 


873 




LM 


13,15,0(6) 


RESTORE MACRO REGISTER 


000D04 


4580 


EOlO 




03158 


874 




BAL 


8,TPTEST 




000008 


47F0 


E076 




031 BE 


875 




B 


NXTOP 




oooooc 


4 16 A 


0001 




00001 


876 


HBD 


LA 


6,1(10) 




OOODIO 


4580 


FAEO 




02C28 


877 




BAL 


8,CVA043 




000D14 


18B5 








878 




LR 


11,5 




000D16 


416A 


0004 




00004 


8 79 




LA 


6,4(10) 




OOODIA 


4580 


FAEO 




02C28 


880 




BAL 


8,CVA043 




OOODIE 


i8C5 








881 




LR 


12,5 




000D20 


4100 


0001 




00001 


882 




LA 


0,1 




000D24 


186C 








883 




LR 


6,12 




000026 


4B60 


EE7C 




03FC4 


884 




SH 


6,=H»100» 





X»10» FOR TAPE 



X»10» FOR TAPE 



00080200 
00080300 
00080400 
00080500 
00080600 
00080700 
00080800 
00080900 
00081000 
00081100 
00081200 
00081300 
00081400 
00081500 
00081600 
00081700 
00081800 
00081900 
00082000 
000 82100 
00082200 
00082 300 
00082400 
00082500 
00082600 
00082700 
00082800 
00082900 
00083000 
00083100 
00083200 
00083300 
00083400 
00083500 
00083600 
00083700 



00083800 
00083900 



00084000 
00084100 
00084200 
00084300 
00084400 
00084500 
00084600 
00084700 
00084800 
00084900 
00085000 
000 85100 





MOVE 


CHAR ACT 


ERS TO A 


WORD N 


=ARK 








LOC 


OBJECT CODE 


ADDRl 


ADDR2 


STMT 


SOURCE STATE 


MENT 


00002A 


9532 


El AD 


032F5 




885 




CLI 


DCHARtX»32» 


000D2E 


4780 


D2A2 




00074 


886 




BE 


MBC 


GOOD 3 2 


186B 








887 




LR 


6tll 


000D34 


4860 


FF7C 




03FC4 


888 




SH 


6,=H»100» 


000D38 


433B 


0000 




00000 


889 


NBDl 


IC 


3,0(11) 


000D3C 


4230 


0277 




00D49 


890 




STC 


3tMBD2+l 


000D40 


94BF 


0277 


00049 




891 




HI 


MBD2+l.tX»BF« 


000044 


9440 


cooo 


00000 




892 




NI 


0C12J,X»40» 


000048 


9600 


cooo 


00000 




893 


HBD2 


01 


0(12), 


000D4C 


IBCO 








894 




SR 


12,0 


000D4E 


4336 


0000 




00000 


895 




IC 


3,0(6) 


000052 


4230 


D28D 




00D5F 


896 




STC 


3,MBD3+1 


0O0D56 


94BF 


D28D 


00D5F 




897 




NI 


MBOS-UfX'BF* 


000D5A 


9440 


cooo 


00000 




898 




NI 


0(12),X»40» 


000D5E 


9600 


COOO 


00000 




899 


MBD3 


01 


0(12), 


000D62 


IBCO 








900 




SR 


12,0 


000D64 


IBBO 








901 




SR 


11,0 


000066 


1B60 








902 




SR 


6,0 


000D68 


9140 


6001 


00001 




903 




TM 


1(6),X»40» 


000D6C 


4780 


D266 




00D38 


904 




BC 


8,MBD1 


000D70 


47F0 


E076 




031BE 


905 




B 


NXTOP 


000D74 


4 33B 


0000 




00000 


906 


MBC 


IC 


3,0(11) 


000D78 


4230 


02B3 




00D85 


907 




STC 


3,MBC1+1 


00007C 


94BF 


D283 


00D8 5 




908 




NI 


MBC1+1,X»BF » 


000D80 


9440 


COOO 


00000 




909 




NI 


0(12),X»40« 


000084 


9600 


cooo 


00000 




910 


HBCl 


01 


0(12), 


000D88 


IBBO 








911 




SR 


11,0 


000D8A 


433B 


0000 




00000 


912 




IC 


3,0(11) 


000D8E 


4230 


D2C9 




00D9B 


913 




STC 


3,HBC2+1 


0O0D92 


94BF 


D2C9 


00D9B 




914 




NI 


MBC2+1,X»BF» 


000D96 


9440 


6000 


00000 




915 




NI 


0(6),X»40» 


000D9A 


9600 


6000 


00000 




916 


MBC2 


01 


0(6), 


000D9E 


IBCO 








917 




SR 


12,0 


OOODAO 


18B0 








918 




SR 


llfO 


000DA.2 


1B60 








919 




SR 


6,0 


000DA4 


9140 


6001 


00001 




920 




TM 


1(6),X*40» 


0O0DA8 


4710 


E076 




0318E 


921 




BO 


NXTOP 


OOODAC 


9140 


coo I 


00001 




922 




TM 


1(12),X*40» 


OOODBO 


4780 


D2A2 




00D74 


923 




BZ 


NBC 


000DB4 


47 FO 


e076 




031BF 


924 




B 


NXTOP 
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00085200 
00085300 
00085400 
00085500 
00085600 
00085700 
00085800 
00085900 
00086000 
00086100 
00086200 
00086300 
00086400 
00086500 
00086600 
00086700 
00086800 
00086900 
00087000 
00087100 
00087200 
00087300 
00087400 
00087500 
00087600 
00087700 
00087800 
00087900 
00088000 
00088100 
00088200 
00088300 

nnnoa /,r\f\ 

00088500 
00088600 
00088700 
00088800 
00088900 
00089000 
00089100 





HOVE CHARACTER; 


S AMD ? 


SUPPRESS 


LEAl 


)ING IB 


\os 
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LOG 


OBJECT CODE 


AODRl 


A0DR2 


STMT 


SOURi 


:E STAT 


EMENT 


F150CT70 


10/28/71 


000DB8 








926 




USING 


HCS,i3 




00089300 


OOODBB 


4990 EE66 




03FAE 


927 


HCS 


CH 


9t=^H»l» 




00089400 


OOODBC 


47SD D03C 




00DF4 


928 




BE 


MCSLl 




00089500 


OOODCO 


4990 EE64 




03FAC 


929 




CH 


9,=H»7» 




00089600 


00DDC4 


4780 D028 




OODEO 


930 




BE 


MCSL7 




00089700 


000DC8 


4990 EE68 




03FB0 


931 




CH 


9,=H«4» 




00089800 


OOODCC 


4770 F9EE 




02B36 


932 




BNE 


ILEGLN 




00089900 


OOODDO 


416A 0001 




QOOOl 


933 




LA 


6,1(10) 




00090000 


000DD4 


4580 FAEO 




02C2 8 


934 




BAL 


8tCVAD43 




00090100 


0OO0D8 


18B5 






935 




LR 


llt5 




00090200 


OOOODA 


18C5 






936 




LR 


I2t5 




00090300 


OOODOC 


47F0 D03C 




00D64 


937 




B 


HCSLl 




00090400 


OOODEO 


4 16 A 0001 




00001 


938 


MCSL7 


LA 


6,1(10) 




00090500 


000DE4 


4580 FAEO 




02C28 


939 




BAL 


8tCVAD43 




00090600 


000DE8 


18B5 






940 




LR 


11,5 




00090700 


OOODEA 


416A 0004 




00004 


941 




LA 


6,4(10) 




00090800 


OOOOFF 


4580 FAEO 




02C28 


942 




BAL 


8,CVAD43 




00090900 


000DF2 


18C5 






943 




LR 


12,5 




00091000 


000DF4 


4100 0001 




0000 I 


944 


^ICSLl 


LA 


0,1 




00091100 


OOOOFB 


9201 E1C4 


0330C 




945 




HVI 


SUPRES,! 




00091200 


OOODFC 


433B 0000 




00000 


946 




IC 


3,0(11 > 


MOVE OMLY DIGIT OF FIRST CHARACTER 


00091300 


000 EDO 


423C 0000 




00000 


947 




STC 


3,0(12) 


•^ 


00091400 


000ED4 


940F COOO 


00000 




948 




m 


0( 12) ,X»0F» 


* 


00091500 


000608 


4230 FB6e 




02CB0 


949 




STC 


3, TEMPI 


SAVE A-CHARACTER 


00091600 


OOOEOC 


9640 COOO 


00000 




950 




01 


0C12),X«40* 


S6T WORD MARK TO STOP REVERSE SCAN 


00091700 


OOOEIO 


47F0 D06C 




00E24 


951 




B 


WCSL18 




00091800 


000E14 


4338 0000 




00000 


952 


MCSLIA 


IC 


3,0(11) 


MOVE CHARACTER 


00091900 


000E18 


423C 0000 




00000 


953 




STC 


3,0(12) 


* 


00092000 


OOOEIC 


4230 FB68 




02CB0 


954 




STC 


3, TEMPI 


SAVE A-CHARACTER 


00092100 


0OOE?0 


943F COOO 


00000 




955 




NI 


0(12),X»3F« 


^ 


00092200 


O0OE24 


IBBO 






956 


HCSLIB 


SR 


11,0 




00092300 


000E26 


IB CO 






957 




SR 


12,0 




00092400 


000E28 


9140 FB68 


U2CB0 




95 8 




TH 


TEMPI, X»40» 


Q/ END OF A--FiELD 


00092500 


000E2C 


4780 005C 




00614 


959 




BZ 


HCSLIA 


NO 


00092600 


000E30 


41CC 0001 




00001 


960 




LA 


12,1(12) 


YES 


00092700 


000634 


0200 FB68 COOO 


02CB0 


00000 


961 


NCSLIC 


MVC 


TEHPl(l) ,0( 12) 




00092800 


000E3A 


943^6 FB6a 


02CB0 




962 




NI 


TEMPI, X»3F» 




00092900 


0OOE3E 


9501 E1C4 


0330C 




963 




CLI 


SUPRES, 1 


0/ IS ZERO SUPPRESSION ON 


00093000 


000642 


4780 DOC 6 




00676 


964 




BE 


MCSLIG 


YES 


00093100 


000E46 


950A FB66 


02CB0 




965 




CLI 


TEHP1,X«0A» 


NO, IS IT SIGNIFICANT DIGIT, BLANK 


00093200 


000E4A 


47CK} 00 A A 




0066 2 


966 




BNH 


MCSLIE 


YES 


00093300 


000E4E 


951B FB68 


02CB0 




967 




CLI 


T6«P1,X»18» 


0/ COMMA 


00093400 


0OOE52 


4780 DOAA 




00E62 


968 




BE 


HCSLIE 


YES 


00093500 


000E56 


9520 FB68 


02CB0 




969 




CLI 


TEMD1,X»20» 


Q/ HYPHEN 


00093600 


000E5A 


4780 DOAA 




00662 


970 




BE 


MCSLIE 


YES 


00093700 


000E5F 


9201 E1C4 


'^'^BSOC 




971 




mi 


SUPRES tl 


TURN ON ZERO SUPRESSION 


00093800 


000E62 


9140 COOO 


00000 




972 


HCSLIE 


TH 


0(12),X»40» 


0/ LAST DIGIT 


00093900 


000E6^ 


4710 DOBA 




00672 


973 




BO 


MCSLIF 


YES 


00094000 


000E6A 


41CC 0001 




00001 


974 




LA 


12,1(12) 


NO, PROCESS NEXT DIGIT 


00094100 


000E6E 


47F0 D07C 




00E34 


975 




B 


HCSLIC 


* 


00094200 


000E72 


948 F COOO 


00000 




976 


HCSLIF 


m 


0(12),X»BF» 


CLEAR yORD HARK 


00094300 


000E76 


41CC 0001 




00001 


977 




LA 


12,1(12) 


SET S-ADDRESS 


00094400 


000E7A 


47F0 E076 




031 BE 


978 




B 


NXTOP 


GET NEXT INSTRUCTION 


00094500 


000676 


9509 COOO 


00000 




979 


MCSLIG 


CLI 


0(12), X*09* 


0/ SIGNIFICANT DIGIT 


00094600 


000E82 


4720 DODE 




00E96 


980 




BH 


MCSLIH 


'^^ 


00094700 





HOVE 


CHARACTER 


S AND SUPPRESS 


LEADING 


ZEROS 






LOG 


OBJECT CODE 


ADDR.1 


ADDR2 


STMT 


Si 


DUR( 


CE STATE! 


NENT 




000E86 


9500 


GOOD 


00000 




981 






CLI 


0(1.2),X»00» 


t^ 


000E8A 


4 7B0 


DODE 




00E96 


982 






BE 


HCSLIH 


^ 


000 E8E 


9200 


E1C4 


0330C 




983 






HVI 


SUPRESfO 


YESt TURI 


000E92 


47F0 


DOAA 




00E62 


984 






B 


NCSLIE 


^ 


00aE96 


9500 


FB6B 


02CB0 




985 


HCSLIH 


CLI 


TEHPltX'OO* 


0/ BLANK 


000E9A 


4780 


OOF 6 




OOEAE 


986 






BE 


MCSLII 


BLANK 


O0OE9E 


9 50 A 


FB68 


02CB0 




987 






CLI 


TEHP1,X'0A» 


0/ ZERO 


000EA2 


4780 


D0F6 




OOEAE 


988 






BE 


MCSLII 


ZERO 


0O0EA6 


95 IB 


FB68 


02CB0 




989 






CLI 


TEMPI, X»1B« 


Q/ COMHA 


OOOEAA 


4770 


DOAA 




00E&2 


990 






BNE 


HCSLIE 


NO 


OOOEAE 


9440 


COOO 


00000 




991 


HCSLII 


MI 


0{12),X»40» 




000 EB 2 


47Fd 


DOAA 




0OE62 


992 






B 


MCSLIE 
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OFF ZERO SUPPRESSION 



00094800 
00094900 
00095000 
00095100 
00095200 
00095300 
00095400 
00095500 
00095600 
00095700 
00095800 
00095900 



NOVe MUMERIC 



PAGE 
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LOG OBJECT CODE 



3DR1 ADDR2 STMT 



SOURCE STATEMENT 



FI50CT70 10/28/71 



000EB6 








994 




USING 


HNtI3 




000EB6 


4990 


EE66 


03FAE 


995 


MH 


CH 


9,=H«1» 




OOOEBA 


4780 


D036 


OOEEC 


996 




BE 


MMLl 




OOOEBE 


4990 


EE68 


03FB0 


997 




CH 


9,=H»4* 




000EC2 


47S0 


D022 


00ED8 


998 




BE 


MNL4 




000EC6 


4990 


EE64 


03FAC 


999 




CH 


9t=H»7» 




OOOECA 


4770 


F9EE 


02B36 


1000 




BNE 


ILEGLN 




OOOECE 


416A 


0004 


00004 


1001 




LA 


6,4(10) 




OOOED? 


4580 


FAEO 


02C28 


1002 




BAL 


8,CVAD43 




000ED6 


18C5 






1003 




LR 


12,5 




000ED8 


416A 


0001 


00001 


1004 


MNL4 


LA 


6,1(10 J 




OOOEDC 


4580 


FAEO 


02C28 


1005 




BAL 


8,CVAD43 




OOOEEO 


18B5 






1006 




LR 


11,5 




000EE2 


4990 


EE68 


03FB0 


1007 




CH 


9,=H»4» 




000EE6 


4770 


0036 


OOEEC 


1008 




BNE 


MNLl 




OOOEEA 


18CB 






1009 




LR 


12,11 


4 CHARACTERS, 


OOOEEC 


DlOO 


COOO 5000 


00000 00000 


1010 


MNLl 


mn 


0(l,12),0Cil) 


MOVE NUHERIC 


000EF2 


4BB0 


EE66 


03FAE 


1011 




SH 


11,=H«1» 




000EF6 


4BC0 


EE66 


03FAE 


1012 




SH 


12,=H«1« 




OOOEFA 


47F0 


E076 


031BE 


1013 




B 


NXTOP 





SET B ADR = A ADR 



00096100 
00096200 
00096300 
00096400 
00096500 
00096600 
00096700 
00096800 
00096900 
00097000 
00097100 
00097200 
00097300 
00097400 
00097500 
00097600 
00097700 
00097800 
00097900 
00098000 





MOVE 


ZONE 














LOG 


OBJECT CODE 


ADORl 


A DDR 2 


STMT 


SOUf 


<CE STATEMENT 


000 EFE 










1015 




USING 


MZf 13 


OOOEFE 


4990 


eF66 




03FAE 


1016 


HI 


CH 


9,=H»1» 


000F02 


4-780 


DO 2 4 




00F22 


1017 




BE 


MZLl 


00OFO6 


4990 


EE64 




03FAC 


1018 




CH 


9r=H»7» 


OOOFOA 


4770 


F9EE 




02B36 


1019 




BNE 


I LEGEM 


OOOFOE 


416A 


0001 




00001 


1020 




LA 


6,1(10) 


OOOFl? 


4580 


FAEO 




02C28 


1021 




BAL 


8,CVA043 


000F16 


18B5 








1022 




LR 


11,5 


000F18 


416A 


0004 




00004 


1023 




LA 


6t4(KU 


OOOFIC 


4580 


FAEO 




02C28 


1024 




BAL 


BfCVAD43 


000F20 


18C5 








1025 




LR 


12,5 


000F2? 


433B 


0000 




00000 


1026 


MZLl 


IC 


3,0(11) 


000F26 


4230 


0035 




00F33 


1027 




STC 


3,MZL1A+1 


000F2A 


94CF 


cooo 


00000 




1028 




NI 


0{12),X«CF« 


000F2E 


9430 


D035 


00F33 




1029 




HI 


MZL1A+1,X»30» 


000F32 


9600 


cooo 


00000 




1030 


M2L1A 


01 


0(12), 


0OOF36 


4BB0 


EE66 




03FAE 


1031 




SH 


11,=H»1» 


000F3A 


4BC0 


EE66 




03FAE 


1032 




SH 


12,=H»1» 


000F3E 


47F0 


E076 




031Be 


1033 




B 


NXTOP 
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00098200 
00098300 
00098400 
00098500 
00098600 
00098700 
00098800 
00098900 
00099000 
00099100 
00099200 
00099300 
00099400 
00099500 
00099600 
00099700 
00099800 
00099900 
00100000 



LOAD CHARACTERS TO AH A-FIELD WORD HARK 
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LOG OBJECT CODE 



ADDRI A0DR2 STHT 



SOURCE STATBHENT 



000F42 
000F42 
000 F 46 
000F4A 
000F4E 
000 F5 2 
000F56 
000F5A 
000F5E 
000 F6? 
000F66 
000F6A 
000F6E 
000F70 
000 F 74 
000F78 
000F7A 
D00F7E 
000F8? 
000F86 
OO0F88 
OOOFBA 
000F8E 
000F92 
000F96 
000F9A 
000F9E 
000FA2 
000FA6 



4990 
4780 
4990 
4780 
4990 
4780 
4990 
4780 
47 FO 
416A 
4580 
18C5 
416A 
4 580 
1BB5 
4100 
433B 
423C 
IBBO 
IBCO 
9140 
4780 
47F0 
9529 
4780 
9516 
4780 
47F0 



EE64 
0024 
EE68 
D02E 
EE66 
D038 
Ee70 
0054 
F9EE 
0004 
FAEO 

0001 
FAEO 

0001 
0000 
0000 



BOOl 
D03C 
E076 
A007 
0068 
A007 

one 

F9C0 



OOOFAA 


416A 


0004 


OOOFAE 


4580 


FAEO 


000FB2 


18C5 




000FB4 


4580 


FFDO 


000F88 


4580 


FF3C 


OOOFBC 


4180 


FF3A 


OOOFCO 


0588 




000FC2 


5030 


F924 


000FC6 


D203 


F920 


OOOFCC 


90DF 


E4A0 


OOOFDO 


4160 


E4A0 


000FD4 


41D0 


E458 


000FD8 


4110 


F910 


OOOFDC 


OAOO 




OOOFDE 


98EF 


6004 



000FE2 4110 F930 
000FE6 4100 0001 
OOOFEA OAOl 
OOOFEC 98DF 6000 
OOOFFO 4580 EOlO 
000FF4 4830 E4EE 



00001 



0000? 



00007 



03FAC 
00F66 
3FB0 
00F70 
03FAE 
00F7A 
03FB8 
00F96 
02B36 
00004 
02C28 

OOOOl 
02C28 

00001 
00000 
00000 



00F7E 
031BE 

OOFAA 

0105E 

02B08 



00004 
02C28 

03118 
03084 
03082 

02A6C 

'A6S 03F48 
035E8 
035E8 
035A0 

02A58 

00004 

02A78 

00001 

00000 
03158 

03636 



1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 

1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 

1080 + 

1081 + 
1082 
1083 
1084+ 
1085 + 
1086+ 
1067 
1088 
1089 



LCA 



LCAL7 



LCAL4 



LCALl 
LCALIA 



LCA8 



USING LCA, 13 

CH 9,=H*7' 

BE LCAL7 

CH 9,=H»4« 

BE LCAL4 

CH 9,=H«1» 

BE LCALl 

CH 9 , =H • 8 • 

BE LCAB 

B I LEGEM 

LA 6,4(10) 

8AL 8,CVAD43 

LR 12,5 

LA 6,1(10) 

BAL 8,CVA043 

LR 11,5 

LA 0,1 

IC 3,0(11) 

STC 3,0(12) 

SR 11,0 

SR 12,0 

TM 1(11),X«40« 

BZ LCALIA 

B NXTOP 

CLI 7(10),X»29» 

BE RTW 

CLI 7(10),X»16» 

BE WTW 

B ILEGOP 

READ TAPE WITH HORO NARKS 

I A (^ A f 1 n \ 

BAL 8,CVAD43 

LR 12,5 

BAL 8,FMDRIV 

BAL 8,TST0PEN 

LA 8,L0ADHD 

BALR 8,8 

ST 3,TmDCB 

mC TPCCW,=A(RTCCW) 

STH 13,15,MACREGSV SAVE 

LA 6,HACREGSV SAVE 

LA 13,SAVEAREA GIVE 

EXCP THIOB 

LA 1,TMI0B LOAD PARAMETER 

SVC ISSUE SVC FOR EXCP 

LM 14,15,4(6) RESTORE REG 14 AND 15 

WAIT 1,ECB=THECB WAIT FOR I/O 

LA 1,TMECB LOAD PARAMETER REG I 

LA 0,1(0,0) LOAD PARAHETER REG 

SVC 1 LINK TO i^AIT ROUTINE 

LM 13,15,0(6) RESTORE MACRO REGISTERS 

BAL 8,TPTEST 

LH 3,SAVCSW+6 FIND NUHBER OF BYTES READ 



HACRO REGS 
ADDRESS TO XR 
OS OUR SAVE AREA 



REG 1 
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00100200 
00100300 
00100400 
00100500 
00100600 
00100700 
00100800 
00100900 
00101000 
OOlOllOO 
00101200 
00101300 
00101400 
00101500 
00101600 
00101700 
00101800 
00101900 
00102000 
00102100 
00102200 
00102300 
00102400 
00102500 
00102600 
00102700 
00102800 
00102900 
00103000 
00103100 
00103200 
00103300 

00103500 
00103600 
00103700 
00103800 
00103900 
00104000 
00104100 
00104200 
00104300 
00104400 
00104500 
00104600 



00104700 
00104800 



00104900 
00105000 
00105100 



LOAD CHARACTERS TO A! 



I ELD ^ORD MARK 
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LOC OBJECT CODE 



0D0FF8 
OOOFFC 
OOOFFE 
001002 
001006 
00 100 A 
OOIOOE 
001012 
001016 

A m A 1 A 

OOIOIE 
601024 
001028 
00102C 
001030 
001034 
001038 
00103E 
001042 
001046 
00104A 
00104E 
001052 
001056 
00 10 5 A 



OOIOSE 
001062 
001066 
001068 
00106C 
00106E 
001072 
001076 
00107A 
00107E 
001082 
001086 
OOIOBC 
001092 
001096 
00109A 
00109E 
0010A2 
0010A6 
OOIOAA 
OOIOAE 
0010B2 
0010B6 
OOIOBC 
OOIOCO 
0010C4 



4840 
IB 43 
5810 
957 F 
4780 
956D 
4770 
4111 
4331 

-re -SA-.- 

DCOO 
9640 
4B40 
47F0 
4331 
423C 
DCOO 
4111 
41CC 
4640 
95 7F 
4780 
92 3F 
4 ICC 
47F0 



416A 
4580 
18C5 
5810 
182C 
917F 
4710 
9140 
4780 
9260 
4111 
D200 
DCOO 
4111 
4122 
47 FO 
5B10 
4010 
4580 
4580 
4580 
5030 
D203 
900F 
4160 
41 DO 



fce78 

El CO 

cooo 

D114 

1000 
DO EE 
0001 

0000 

rsr\f\r\ 

cooo 
cooo 

EE66 
DOFC 
0000 
0000 

cooo 

0001 
\J'J\J 1 

ooco 

cooo 

0114 

cooo 

0001 

E076 



0004 
FAEO 

EICO 

2000 
015C 
2000 
D144 
1000 
000 1 
1000 
1000 
000 1 
0001 
012C 
EICO 
E4FE 
FFDO 
FF3C 
FF3A 
F924 
F920 
E4A0 
E4A0 
E45B 



03FC0 

03308 

00000 

010 56 

00000 

01030 
00001 
00000 

\J KJ U U U 

E914 00000 03A5C 

00000 

03FAE 
0103E 
00000 
00000 
E914 00000 03A5C 
00001 
00001 
01002 

00000 

01056 

00000 

OOOOl 
031BE 



00004 
02C28 

03308 



2000 
FA14 



00000 
00000 
00000 

00000 

00000 



EE04 02A68 



0109E 

01036 

00001 
00000 
3650 
00001 
00001 
0I06E 
03308 
03646 
3118 
03084 
03082 
02A6C 
03F4C 
035E8 
035E8 
035A0 



STMT 

1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 

■» f\ r\ r^. 

1100 
11 01 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 



SOURCE 



RTWl 



RTW2 



RTy2A 



RTW3 



IrtlTW 



WTWl 



WTW2 



^1M3 



■ E STATEMENT 


LH 


4,=^H»18000* 


SR 


4,3 


L 


ItTAPEAREA 


CLI 


0( 12) ,X«7F» 


BE 


RTW3 


CLI 


0(1) tX»6D» 


BNE 


RTH2 


LA 


1,1(1) 


IC 


3tOCl) 


STC 


3,0( 12 ) 


TR 


0C1,12),TREI 


01 


0(12) ?X»40» 


SH 


4,=H»1 » 


B 


RTW2A 


IC 


3,0(1) 


STC 


3,0( 12) 


TR 


0(1,12),TREI 


LA 


1,1(1) 


LA 


12,1(12) 


BCT 


4, RTWl 


CLI 


0(12),X»7F» 


BE 


RTW3 


HVI 


0(i2),X»3F» 


LA 


12,1(12) 


B 


iMXTOP 



SET SEMDING ADDRESS 

0/ GP HK - WO MK IN CORE 

YES 

0/ WORD SEPARATOR 

NO 

YES 



RECORD HOVED, 
YES, LEAVE IT 
MO, HOVE IN A 
SET B-ADDRESS 



IS GROUP HARK NEXT CHAR 

ALOr^E 

GROUP HARK 



WRITE TAPE WITH i^ORD NARKS 



LA 


6,4(10) 




BAL 


8,CVA043 




LR 


12,5 




L 


IrTAPEAREA 




LR 


2,12 




JM 


( 2 ) , X • 7F « 


Q/ GROUP HARK WORD HARK 


BO 


WTW3 


YES, FIELD DONE 


TM 


0(2) ,X»40» 


0/ WORD NARK 


BZ 


WTW2 


MO 


WI 


0(1) tX»6D» 


YES, INSERT WORD SEPARATOR 


LA 


1,1(1) 


* 


HVC 


0(1,1), 0(2) 




TR 


0(1,1) ,TRIE 




LA 


1,1(1) 




LA 


2,1(2) 




B 


WTWl 




S 


1, TAPE ARE A 




STH 


l,WTCCW2+6 




BAL 


8,FNDRIV 




BAL 


8,TST0PEN 




BAL 


8,L0A0HD 




ST 


3,TMDCB 




MVC 


TPCCW,=A(WTCCW 


1) 


STN 


13,15,mACREGSV 


SAVE MACRO REGS 


LA 


6,MACREGSV 


SAVE ADDRESS TO XR 


LA 


13,SAVEAREA 


GIVE OS OUR SAVE AREA 


EXCP 


THIDB 





F150CT70 10/28/71 



00105200 
00105300 
00105400 
00105500 
00105600 
00105700 
00105800 
00105900 
00106000 
00106100 
00106200 
00106300 
00106400 
00106500 
00106600 
00106700 
00106800 
00106900 
00107000 
00107100 
00107200 
00107300 
00107400 
00107500 
00107600 
00107700 
00107800 
00107900 
00108000 
00108100 
00108200 



00108300 
00108400 
00108500 
00108600 
00108700 
00108800 
00108900 
00109000 
00109100 
00109200 
00109300 
00109400 
00109500 
00109600 
00109700 
00109800 
00109900 
00110000 
00110100 
00110200 
00110300 
00110400 
00110500 
00110600 



LOAD CHARACTERS TO AN A-FIELD WORD MARK 



PAGE 30 



L0( 



OBJECT CODE 



ADORl ADDR2 STMT 



SOURCE STATEMENT 
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0010C8 4110 F910 

OOIOCC OAOO 

001 OCE 98 EF 6004 



001002 
001006 
OOIODA 
OOIOOC 
OOIOEO 
001uE4 
0010E8 



4110 
4100 
OAOl 
98DF 
4580 
410? 
47F0 



F930 
0001 

6000 
EOlO 
000 1 
E076 



2A58 


1145+ 




1146+ 


00004 


1147 




1148 


02A78 


1149+ 


00001 


1150+ 




1151 + 


00000 


1152 


03158 


1153 


00001 


1154 


031BE 


1155 



LA 1,THI0B LOAD PARAHETER REG 1 

SVC ISSUE SVC FOR EXCP 

LM 14,15,4(6) RESTORE REG 14 AMD 15 

WAIT 1,ECB=TMECB WAIT FOR I/O 

LA ItTMECB LOAD PARAMETER REG 1 

LA 0,1(0,0) LOAD PARAMETER REG 

SVC 1 LINK TO WAIT ROUTINE 

LW 13,15,0(6) RESTORE MACRO REGISTERS 

BAL 8,TPTEST 

LA 12,1(2) 

B NXTOP 



00110700 
00110800 



00110900 
00111000 
00111100 
00111200 



HOVE CHARACTERS A^D EDIT 
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LOC 


OBJECT CQl 


OOIOEC 






OOIOEC 


4990 


EE64 


OOIOFO 


4770 


F9EE 


0C1CF4 


416A 


0001 


0010F8 


4580 


FAEO 


OOIOFC 


18B5 




OOIOFE 


416A 


0004 


001102 


45v80 


FAEO 


001106 


18C5 




001108 


4100 


0001 


OOllOC 


9200 


F1B6 


ooiiio 


9200 


0330 


001114 


9200 


E1C4 


001118 


9200 


032 D 


OOlllC 


9200 


0332 


001120 


9200 


0331 


001124 


9200 


D32F 


001128 


9200 


032C 


00112C 


9200 


D333 


001130 


9200 


D33C 


001134 


43 2 B 


0000 


001138 


5420 


EDEC 


00113C 


4920 


EE6E 


001140 


4770 


D05C 


001144 


9201 


D32F 


001148 


431C 


0000 


001140 


4210 


FB6B 


001150 


94 3F 


COOO 


001154 


95 3B 


COOO 


001158 


4770 


D07B 


00115C 


9201 


D32C 


001160 


50C0 


D328 


001164 


9500 


COOO 


001168 


4780 


D12A 


00116C 


950A 


COOO 


001170 


4780 


012A 


001174 


9530 


COOO 


001178 


4780 


DOCO 


00117C 


9501 


D330 


001180 


4780 


DOCA 


001184 


951B 


COOO 


001188 


4780 


DOCO 


00118C 


9533 


COOO 


001190 


4780 


D03B 


001194 


9529 


COOO 


00119B 


4780 


OORe 


00119C 


9520 


COOO 


OOllAO 


4770 


DOCA 


0011A4 


9501 


032 F 


0011A8 


4780 


DOCA 


OOllAC 


9200 


COOO 


OOllBO 


IBCO 




0011B2 


47F0 


DlOO 


0011B6 


952C 


COOO 


OOllBA 


4770 


DOE 2 



.DORl ADDR2 STMT 



032FE 
014IC 
0330C 
01419 
0141E 
01410 
0141B 
01418 
0141F 
01428 



0141B 



00000 
00000 

01418 



00000 
00000 
0141C 

00000 
00000 
00000 
00000 
0141B 
00000 

00000 



03FAC 
02B36 
00001 
02C28 

00004 
02C28 

00001 



00000 
03F34 
03FB6 
01148 

00000 
02CB0 



01164 
01414 
01216 
01216 
on AC 
011B6 
OllAC 
011A4 
011A4 
011B6 
011B6 

OllEC 
01 ICE 



1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 

•t 1 n t-\ 

1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
120 3 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 



SOURCE STATEMENT 

USING MCE, 13 

HCE CH 9,=H'^7* 

BNE ILEGLIM 

LA 6,1(10) 

BAL 8,CVA043 

LR llt5 

LA 6t4{10J 

BAL 8tCVA043 

LR 12t5 

LA 0,1 

MVI AEfs{D,0 

HVI BODYfO 

MVI SUPRES,0 

NVI FLOAT, 

mi SIGDIG,0 

MVI ASTER, 

HVI ANINUS,0 

MVI DECIMAL, 

MVI FIRSTDOL,0 

MVI SIGNDOL,0 

IC 2,0(11) 

H 2,=F»48» 

CH 2,=H»32« 

8NE MCEl 

MVI AMINUSfl 

HCei IC 1,0(12) 

STC 1, TEMPI 

HI 0{12),X»3F» 

CLI 0C12),X»3B» 

BNE MCEl A 

MVI DECIMAL,! 

ST 1?,0ECADD 

HCEIA CLI 0C12),X«00« 

BE MCE6 

CLI 0{12),X»0A» 

BE MCE6 

CLI 0(1.2),X»30» 

BE MCE3 

CLI B0DY,1 

BE MCE3A 

CLI 0(12) ,X»1B» 

BE MCE3 

CLI 0{12),X»33» 

BE MCE2 

CLI 0(12),X«29« 

BE MCE2 

CLI 0(12),X«20» 

BNE MCE3A 

MCE2 CLI AMINUS,1 

BE MCE3A 

MCE3 MVI 0(12),X»00» 

SR 12,0 

B MCE 5 

MCE3A CLI 0(12),X»2C« 

BNE HCE3B 



Q/ IS LENGTH CORRECT 

NO 

YES, CONVERT ADDRESSES 



# 



* 



CLEAR 

CLEAR 

CLEAR 

CLEAR FL 

CLEAR SI 

CLEAR AS 

CLEAR A- 

OECIMAL 

CLE 

CLE 

Q/ A-FIE 



A-FIELD END INDICATOR 

BODY TRIGGER 

ZERO SUPPRESSION INDICATOR 
DATING DOLLAR SIGN INDICATOR 
GNIFICANT DIGIT I NO 
TERISK PROTECTION IND 
FIELD MINUS INDICATOR 

POINT INDICATOR 
AR $ INFIRST CHAR INDICATOR 
AR DOLLAR SIGN INDICATOR 
LD MINUS 



MINUS INDICATOR 
CHARACTER 



NO 

YES, SET A-FIELD 
SAVE B-FIELD 

CLEAR yORD MARK 
Q/ DECIMAL POINT 
NO 

YES, SET DECIMAL INDICATOR 
STORE ADDRESS OF DECIMAL POINT 

n / Q t ft ^!l/ 

YES 

0/ ZERO 

YES 

Q/ AMPERSAND 
YES 

Q/ BODY TRIGGER ON 
YES 

0/ COMMA 
YES 
0/ c 
YES 
Q/ R 
YES 
0/ - 
NO 
0/ A-FIELD MINUS 
YES 

MOVL BLANK TO B-FIELO 
DECREMENT B-FIELD 



0/ 

NO 
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00111400 
00111500 
00111600 
00111700 
00111800 
00111900 
00112000 
00112100 
00112200 
00112300 
00112400 
00112500 
00112600 
00112700 
00112800 
00112900 
00113000 
00113100 
00113200 
00113300 
00113400 
00113500 
00113600 
00113700 
00113800 
00113900 
00114000 
00114100 
00114200 
00114300 
00114400 
00114500 



00114700 
00114800 
00114900 
00115000 
00115100 
00115200 
00115300 
00115400 
00115500 
00115600 
00115700 
00115600 
00115900 
00116000 
00116100 
00116200 
00116300 
00116400 
00116500 
00116600 
00116700 
00116800 



MOVE CHARACTERS AHD FDIT 
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LOG OBJECT CODE 



AODRl ADDR2 STMT 



SOURCE STATEHENT 
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0011 BE 
0011C2 
0011C6 
OOllCA 
OOllCE 
001102 
001106 
001108 
00 11 DC 
0011 DE 
OOllEO 
0011E4 
0011E8 
00 11 EC 
OOllFO 
0011F4 
0011F8 
OOllFC 
001200 
001204 
001208 
00120C 
001212 
001216 
00121A 
00 121 E 
001224 
00122 8 
00 122 C 
001230 
001234 
001238 
00123C 
001240 
001244 
001248 
00124C 
001250 
001254 
001258 
00125C 
001260 
001264 
001268 
60126C 
001270 
001274 
001278 
00127C 
001280 
001284 
001288 
00128C 
001290 
001296 



9 501 
4770 
9201 
47F0 
952B 
4780 
IBCO 
47F0 
IBBO 
IBCO 
9140 
4780 
9201 
9140 
4780 
47F0 
9201 
&0C0 
9140 
4780 
9201 
D200 
47F0 
9501 
4780 
D200 
94 3 F 
9500 
4780 
9509 
4720 
9201 
9501 
9501 
4780 
9201 
50C0 
940 F 
910A 
47C0 
9135 
4750 
9640 
50C0 
9201 
4 7F0 
9501 
4770 
9201 
4 ICC 
952B 
4770 
9201 

0200 
943 p 



0330 
00E2 
D331 
D12A 
COOO 
OlOC 

DlOO 



6001 
DlOO 
E1B6 
F868 
D05C 
D188 
033C 
0334 
COOl 
D0F2 
D32D 
COOO 
DOFO 
E1B6 
OOCO 
COOO 
COOO 
COOO 
D150 
COOO 
0150 
D332 
033 
0330 
D16B 
0330 
0338 
COOO 
FB68 
OOFO 
FB68 
OOFO 
COOO 
0324 
E1C4 
OOFO 
F1C4 
E076 
D32E 
0001 
coon 

D1A4 

0333 
FB68 
COOO 



014IC 



0141D 



00000 



0001 

032FE 
02CB0 



01428 
00001 

01419 

BO 00 00000 

032FE 

BOOO 00000 
00000 
00000 

00000 

014 IE 
0141C 
0141C 

0141C 

00000 
02CB0 

02CB0 

00000 

0330C 

0330C 
0141A 

00000 

0141F 
r AAA A->r on 

o vy yjf ■■ .' M £_ V/ 1 .-< M 

00000 



OllCE 

01216 
011F8 
OllEC 

OllEC 

01148 
01274 

01420 

01 IDE 

00000 
01 IOC 

OllAC 

00000 

1. 2 3 C 
0123C 

01254 
01424 

OllDC 
OllDC 
01410 

OllDC 
031BE 
00001 

01290 
00000 



HCE3B 



HCE4A 
^^CE5A 



MCE5 



MCE5C 



HCE6 



1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 

1221 

1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

1239 

1240 

1241 

1242 

1243 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 

1260 

1261 

1262 

1263 

1264 

1265 MCE8A 

1266 



HCE7 



HCE8 



CLI 

BNE 

mi 

B 
CLI 

BE 

SR 

B 
SR 

SR 
TH 
BZ 

mi 

TN 

B2 

B 

MVI 

ST 

TM 

BZ 

MVI 

HVC 

B 

CLI 

BE 

MVC 

CLI 

BE 

CLI 

BH 

MVI 
ri T 

CLI 

BE 

mi 

ST 

BC 

TM 

BC 
01 

ST 
NVI 

B 
CLI 
BNE 

MVI 
LA 

CLI 

BNE 

mi 

HVC 

NI 



300Y,1 

NCE3B 

ASTER, 1 

HCE6 

0(12) tX»2B» 

HCE5C 

12,0 

MCE 5 

11,0 

12,0 

1 { 1 1 ) , X • 

HCE5 

AEN0,1 

TEHP1,X« 

HCEl 

NCE8 

SIGNOOL, 

12,00LSI 

1{12),X» 

MCE5A 

FLOAT,! 

0(1,12), 0(11) 

MCE4A 

AEND,1 

NCE3 

0(1,12), 

0( 12),X» 

0(12), X» 

MCE6A 

0(12), X* 

MCE6A 

SIGDIG,1 



40 » 



40 » 



1 

GH 
40* 



0(11) 

3F • 
00 • 

09 • 



0/ BODY TRIGGER ON 

HO 

SET ASTERISK PRORECTIOH INOICATOR 

Q/ DOLLAR SIGN 
YES 

DECREMENT B-FIELD 



0/ END OF A~FIELD 

NO 

YES, SET A-FIELD ENDED INDICATOR 

0/ END OF B-FIELD 

NO 

YES 

SET DOLLAR SIGN INDICATOR 
STORE ADDRESS OF DOLLAR SIGN 
0/ FLOATING DOLLAR SIGN 



B0DY,1 

HCE7 

B0DY,1 

12,LASTD 

0C12) ,X« 

TENP1,X» 

12,MCE4A 

TEMPI, X» 

5,NCE4A 

0(12) ,X» 

12, ZEROS 

SUPRES,1 

HCE4A 

SUPRES,! 

NXTQP 

FIRST, 1 

12,1(12) 

0(12) ,X» 

NCE8A 

FIRSTDOL 

TEHPKU 

0(12), X» 



IG 

0F» 
0A» 

35» 

40» 
UP 



7 R » 



fl 

A / •* n » 



0/ HAS A~FIELD ALREADY ENDED 

YES 

HOVE CHARACTER 

BLANK 

YES 

DIGIT 

NO 

YES SET SIG DIGIT INDICATOR 

n/ nnnsf td Tr-z^crD rtM 

0/ IS BODY TRIGGER ON 
YES 
NO 
STORE ADDRESS OF LOH ORDER DIGIT 

REMOVE ZONE 

Q/ IS DIGIT ZERO 

NO 

NO 

YES, SET ZERO SUPPRESSION WORD MARK 
STORE ZERO SUPPRESSION ADDRESS 
SET ZERO SUPPRESSION INDICATOR 

INDICATOR 
Q/ WAS THERE ZERO SUPPRESSION 
NO, GET NEXT INSTRUCTION 
SET FIRST CHARACTER OF SCAN INDICATOR 

DOLLAR SIGN 

YES 

SAVE CHARACTER 
CLEAR WORD MARK 



00116900 
00117000 
00117100 
00117200 
00117300 
00117400 
00117500 
00117600 
00117700 
00117800 
00117900 
00118000 
OOliBlOO 
00118200 
00118300 
00118400 
00118500 
00118600 
00118700 
00118800 
00118900 
00119000 
00119100 
00119200 
00119300 
00119400 
00119500 
00119600 
00119700 
00119800 
00119900 
00120000 

00120200 
00120300 
00120400 
00120500 
00120600 
00120700 
00120800 
00120900 
00121000 
00121100 
00121200 
00121300 
00121400 
00121500 
00121600 
00121700 
00121800 
00121900 
00122000 
00122100 
00122200 
00122300 



MOVE CHARACTERS AND EDIT 
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LQC OBJECT COOE 



40DR1 AD0R2 STMT 



SOURCE STATEFiE^T 
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00129A 
001 29E 
0012A2 
0012A6 
0012AA 
0012AE 
00I2B2 
0012B6 
0012BA 
0012BE 
0012C2 
0012C6 
0012CA 
0012CE 
0012D4 
0012D8 
0012DC 
0012E0 
0012E4 
0012E8 
0012EC 
0012F0 
0012F4 
0012FB 
0012FC 
001300 
001304 
001308 
00130C 
001310 
001314 
001318 
00131C 
001320 
001324 
001328 
00132C 
001330 
001334 
001338 
00133C 
001340 
001344 
001348 
00134C 
001350 
001354 
001358 
00135E 
001362 
001366 
00136A 
001370 
001374 
001378 



9500 
4780 
950A 
4780 
9509 
4720 
9200 
9201 
47 FO 
951B 
4780 
9520 
4780 
D50B 
4780 
953B 
4780 
9201 
4 ICC 
9200 
9140 
4710 
4 7F0 
9501 
4780 
47F0 
9501 
4780 
9200 
47F0 
9501 
4770 
9200 
9501 
4780 
9501 
4770 
922C 
47F0 
9501 
4780 
9200 
47F0 
9501 
4770 
9501 
4780 
D201 
47 FO 
9501 
47B0 
D201 
47F0 
4 ICC 
47F0 



cooo 

01D2 

cooo 

0228 

cooo 

01D2 

E1C4 
D332 
01 F8 

WUUU 

D228 

cooo 

D20C 
0000 

025C 

cooo 

D228 
E1C4 
0001 
032E 

FB68 
D290 
D1A4 
032F 
D218 
DIFB 
D32F 
01F8 
COOO 
D1F8 
E1C4 
D1F8 
COOO 
032E 
D24C 
0331 
D1F8 
COOO 
DIES 
032 F 
OlFB 
COOO 
D1F8 
E1C4 
DIFB 
D32E 
D276 
COOO 
D1F8 
D32F 
0288 
COOO 
D1F8 
0001 
01F8 



OOOOG 

00000 

00000 

0330C 
0141 E 

r\ r\ r\ r\ r\ 

\JX.tVU\J 

00000 

EE7E 00000 

00000 

0330C 

0141A 

02CB0 

0141A 

0141B 

00000 

0330C 

00000 
0141A 

0141D 

00000 

0141B 
00000 

0330C 
0141A 

EE80 00000 
0141B 

EE80 00000 



012 BE 
01314 

0128E 

012E4 

01314 

012F8 
03FC6 

01348 

QI314 
00001 

0137C 
01290 

01304 
012 E4 

012E4 

012E4 

012E4 

01338 

012E4 

012E4 

012E4 

012E4 

012E4 

01362 
03FC8 
012E4 

01374 
03FCB 
012E4 
00001 
012E4 



1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 
128 5 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 



?*nLtv 



HCEIO 
NCEIOB 

MCEIOC 

MCEIOD 

MCEll 



HCE12 



HCE13 



CLI 

BE 

CLI 

BE 

CLI 

BH 

mi 
mi 

B 

CLI 

BE 
CLI 
BE 
CLC 
BE 
CLI 
BE 

MVI 

LA 

mi 

TM 
BO 
B 
CLI 
BE 
B 

CLI 
BE 

mi 

B 

CLI 

BNE 

NVI 
CLI 
BE 
CLI 
BNE 
HVf 



B 



HCE14 



HCEIOA 



CLI 

BE 

mi 

B 

CLI 

BNE 

CLI 

BE 

MVC 

B 

CLI 

BE 

MVC 

B 

LA 

B 



0(12), 

HCE9 

0(12), 

MCE 11 

0(12)t 

MCE9 

SUPRES 

SIGDIG 

HCEIO 

f 1 2 ) f 

HCEll 

0(12) f 

MCE IOC 

0U2), 

HCE13 

0(12) , 

HCEll 

SUf>RES 

12,1(1 

FIRST, 

TEMPI, 

FLDOL 

MCE8A 

FIRST, 

MCEIOO 

NCEIO 

AHIMUS 

HCEIO 

0(12), 

MCE 10 

SUPRES 

HCEIO 

0(12)* 

FIRST, 

HCE12 

ASTER, 

MCE 10 

0(12), 

MCEIO 

ANINUS 

HCEIO 

0(12), 

MCEIO 

SUPRES 

HCEIO 

FIRST, 

HCE14 

0(2,12 

MCEIO 

AMINUS 

MCEIOA 

0(2,12 

HCEIO 

12,1(1 

MCEIO 



X • no* 

X«OA» 
X»09» 

,0 

tl 

X«1B» 

X»20» 
=X»3329» 

X»3B« 

fl 
2) 


X»40» 



, 1 

X • 00 » 

a 

x»oo» 
1 

1 

X*2C* 
tl 

x«oo» 

fl 

1 

),=C» 

,1 

),=C» 
2) 



Q/ BimK 
YES 

Q/ ZERO 
YES 

0/ SIGNIFICANT DIGIT 
NO 

TURN OFF ZERO SUPPRESS lOISI 
SET SIGNIFICANT DIGIT INDICATOR 

0/ COMMA 
YES 
Q/ - 
YES 
C7 CR SYNBOL 
YES 



TURN ON ZERO SUPPRESSION 

TURN OFF FIRST TIME INDICATOR 
0/ W/RD MARK 
YES, TEST FOR FLOATING DOLLAR SIGN 

NO, PROCESS NEXT DIGIT 
Q/ FIRST CHARACTER IN STRING 
YES 

0/ A-FIELD MINUS 

NO, BLANK MINUS SIGN 

0/ ZERO SUPPRESSION ON 

NO 

YES, BLANK CHARACTER 
0/ FIRST CHARACTER IN STRING 
YES 

Q/ ASTERISK PROTECTION ON 
NO 
YES, INSERT ASTERISK 

Q/ A-FIELD MINUS 
YES 
NO, BLANK CHARACTER 

Q/ ZERO SUPPRESSION ON 

NO 

0/ 1ST CHARACTER IN STRING 

YES 

NO, BLANK CR 

Q/ A-FIELD MINUS 
YES 

NO, BLANK CR 



00122400 
00122500 
00122600 
00122700 
00122800 
00122900 
00123000 
00123100 
00123200 
00123300 
00123400 
00123500 
00123600 
00123700 
00123800 
00123900 
00124000 
00124100 
00124200 
00124300 
00124400 
00124500 
00124600 
00124700 
00124800 
00124900 
00125000 
00125100 
00125200 
00125300 
00125400 
00125500 
00125600 
00125700 
00125800 
00125900 
00126000 
00126100 
00126200 
00126300 
00126400 
00126 500 
00126600 
00126700 
00126800 
00126900 
00127000 
00127100 
00127200 
00127300 
00127400 
00127500 
00127600 
00127700 
00127800 
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LOC OBJECT CODE 



ADDRl ADDR2 STMT 



SOURCE STATEMENT 
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00137C 


9501 


0320 


001380 


4 770 


D2Ae 


001384 


9500 


COOO 


001388 


4770 


D2A8 


00138C 


922B 


COOO 


001390 


47F0 


02 A E 


001394 


IBCO 




001396 


47F0 


D298 


00 139 A 


9501 


D32C 


00139E 


4770 


E076 


0013A2 


9501 


0332 


0013A6 


4770 


D2D6 


0013AA 


5830 


D328 


0013AE 


9500 


3001 


0013B2 


4770 


E076 


0013B6 


920A 


3001 


0013RA 


4133 


0001 


0013BE 


47F0 


D2C2 


0013C2 


5850 


D338 


0013C6 


0503 


D32B 


0013CC 


4720 


D2ec 


0013D0 


5 840 


D32 8 


0013D4 


47 FO 


D2F0 


0013D8 


5840 


0324 


00130C 


IB 54 




0013DE 


4A50 


EE66 


0013E2 


D200 


4000 


0013E8 


1A40 




0013EA 


4650 


D2F6 


0013EE 


9140 


COOl 


0013F2 


9501 


033C 


0013F6 


4770 


E076 


00i3FA 


9501 


0333 


0013FE 


4780 


E076 


001402 


5830 


D334 


001406 


9200 


3000 


00140A 


47F0 


E076 


001410 






001414 






001418 


00 




001419 


00 




00 141 A 


00 




00 14 IB 


00 




00141C 


00 




00 141 D 


00 




00141 E 


00 




00 141 F 


00 




001420 






001424 






001428 


00 





0324 



EE9A 



01419 




1322 


FLDOL 


CLI 


FLOAT,! 




01 39 A 


1323 




eME 


DECON 


00000 




1324 


DOLLAR 


CLI 


0(12),X«00» 




01394 


1325 




BNE 


MOVOOL 


00000 




1326 




MVI 


0(12) tX»2B» 




01 39 A 


1327 




B 


DECON 






1328 


HOVDOL 


SR 


12,0 




013B4 


1329 




B 


DOLLAR 


01418 




1330 


DECON 


CLI 


DECIMAL,! 




031BE 


1331 




BNE 


NXTOP 


0141E 




1332 




CLI 


SIGDIG, 1 




013C2 


1333 




BNE 


MCE 16 




01414 


1334 




L 


3, DEC ADO 


00001 




1335 


HCE16C 


CLI 


1 t3),X»00» 




031BE 


1336 




BNE 


NXTOP 


00001 




1337 




MVI 


1(3),X«0A» 




00001 


1338 




LA 


3,1(3) 




013AE 


1339 




B 


HCE16C 




01424 


1340 


MCE16 


L 


5, LASTDIG 


oi^i^ 


01410 


1341 




CLC 


DECADO, ZEROSUP 




013D8 


■ 1342 




BH 


HCE16A 




01414 


1343 




L 


4, DECADD 




013DC 


1344 




B 


HCE16B 




01^*10 


1345 


HCE16A 


L 


4, ZEROSUP 






1346 


MCE16B 


SR 


5,4 




03FAE 


1347 




AH 


5,=H»1» 


00000 


03FE? 


1348 


HCE16D 


NVC 


0(1,4),-X»00» 






1349 




AR 


4,0 




013E2 


1350 




BCT 


5,HCE16D 


00001 




1351 




TH 


1(12),X»40» 


01428 




135 2 




CLI 


SIGND0L,1 




031BE 


1353 




BNE 


NXTOP 


0141 F 




1354 




CLI 


FIRSTDOL, 1 




031BE 


1355 




BE 


NXTOP 




01420 


1356 




L 


3,D0LSIGN 


00000 




1357 




HVI 


0(3),X«00« 




031BE 


1358 




B 


NXTOP 






1359 


ZEROSUP 


DS 


F 






1360 


DECADD 


DS 


F 






1361 


DECIMAL 


DC 


X»00» 






1362 


FLOAT 


DC 


X » 00 • 






1363 


FIRST 


DC 


X • 00 • 






1364 


AMINUS 


DC 


x»oo» 






1365 


BODY 


DC 


x»oo» 






1366 


ASTER 


DC 


x«oo« 






1367 


SIGDIG 


DC 


x»oo« 






1368 


FIRSTDOL 


DC 


x»oo» 






1369 


DOLSIG.M 


DS 


F 






1370 


LASTDIG 


DS 


F 






1371 


SIGNDOL 


DC 


X»00» 



0/ FLOATING DOLLAR SIGN 
NO, GO TO DECIMAL CONTR 
0/ BLANK 

NO, GO TO NEXT POSITION IN B-FIELD 
HOVE DOLLAR SIGN INTO B-FIELD 

DECRENENT B-FIELD 

IS DECIMAL CONTROL NEEDED 

NO 

0/ SIGNIFICANT DIGIT 

NO 

TEST TENS POSITION 
FOR BLANK 
NOT BLANK 
YES INSERT ZERO 
LOOP 



Q/ 
0/ 

NO 



FLOATING DOLLAR SIGN 
DOLLAR SIGN 



NO 
BLANK 



DOLLAR SIGN 



ZERO SUPPRESSION ADDRESS 

DECIHAL POINT ADDRESS 

DECIrMAL INDICATOR 
FLOATING DOLLAR SIGN INDICATOR 
FIRST CHARACTER OF SCAN INDICATOR 
A-FIELD NINUS INDICATOR 

BODY TRIGGER 
ASTERISK PROTECTION INDICATOR 

SIGNIFICANT DIGIT INDICATOR 



ADDRESS OF LO)d ORDER DIGIT 



00127900 
00128000 
00128100 
00128200 
00128300 
00128400 
00128500 
00128600 
00128700 
00128800 
00128900 
00129000 
00129100 
00129200 
00129300 
00129400 
00129500 
00129600 
00129700 
00129800 
00129900 
00130000 
00130100 
00130200 
00130300 
00130400 
00130500 
00130600 
00130700 
00130800 
00130900 
00131000 

nn "I -2 1 1 f\n 

00131200 
00131300 
00131400 
00131500 
00131600 
00131700 
00131800 
00131900 
00132000 
00132100 
00132200 
00132300 
00132400 
00132500 
00132600 
00132700 
00132800 



READ A C.4R0 



PAGE 35 



LOC OBJECT CODE 



ADDRl ADDR2 ST/m 



SOURCE STATEHENT 



00i42A 








1373 




USING 


Rtl3 


001429 


00 














00142A 


4990 


EE66 


3FAE 


1374 


R 


CH 


9,=H»1» 


00142E 


4780 


D014 


0143E 


1375 




BE 


RLl 


001432 


4990 


EE68 


03FB0 


1376 




CH 


9,=H»4» 


001436 


4780 


OOIC 


01446 


1377 




BE 


RL4 


00143A 


47Fa 


F9EE 


02B36 


1378 




B 


ILEGLN 


00 14 3 E 


4580 


FC14 


02D5C 


1379 


RLl 


BAL 


8tREA0 


001442 


47F0 


E076 


031Be 


1380 




B 


NXTOP 


001446 


D202 


FB&4 AOOi 


2CAC 00001 


1381 


RL4 


MvC 


ADR 140(3) ,1( lOi 


00144C 


4580 


FC14 


02D5C 


1382 




BAL 


8, READ 


001450 


4160 


FB64 " 


02CAC 


1383 




LA 


6,ADR140 


001454 


47F0 


F97E 


02AC6 


1384 




B 


SETBCH 



GET BRANCH ADDRESS 

SET CONOITIOMS FOR BRANCH 



F150CT70 10/28/71 

00133000 

00133100 
00133200 
00133300 
00133400 
00133500 
00133600 
00133700 
00133800 
00133900 
00134000 
00134100 



PUNCH A CARD 



PAGE 



36 



LOG OBJECT CODE 



AODRl A00R2 STHT 



SOURCE STATEMENT 



001456 






00145 8 


4990 


EE66 


00145C 


4780 


DOIC 


001460 


4990 


EE68 


001464 


4770 


F9EE 


001468 


4580 


FEFO 


00146C 


416A 


0001 


001470 


47F0 


F97E 


001474 


4580 


FEFO 


001478 


47F0 


E076 



03FAE 
01474 
03FB0 
02B36 
03038 
00001 
02AC6 
03038 
031BE 



1386 
1387 
1388 
1389 
1390 
1391 
1392 
1393 
1394 
1395 



PLl 



USING 

CH 

BE 

CH 

BME 

BAL 

LA 

B 

BAL 

B 



P,13 

9t=H»l« 

PLl 

9,=rH»4» 

ILEGLN 

B, PUNCH 

6,1(10) 

SETBCH 

8, PUNCH 

NXTOP 



REFERENCE BRANCH ADDRESS 
SET CONDITIONS FOR BRANCH 



F150CT70 10/28/71 

00134300 
00134400 
00134500 
00134600 
00134700 
00134800 
00134900 
00135000 
00135100 
00135200 



READ AND PUNCH 



PAGE 



3? 



LOC 


OBJECT CODE 


ADORl 


ADDR2 


STHT 


SOURCE STATE 


WENT 


0014TC 










1397 


US IMG 


RP,13 


00147C 


4990 


EE66 




03FAE 


1398 


RP CH 


9,=H»1» 


001480 


4780 


D026 




014A2 


1399 


BE 


RPLl 


001484 


4990 


EE68 




3FB0 


1400 


CH 


9,=H»4« 


001488 


4770 


F9EE 




02B36 


1401 


BNE 


ILEGLN 


G0148C 


0202 


FB64 4001 


02CAC 


00001 


1402 


HVC 


ADR140(3>?1(10) 


001492 


4580 


FC14 




02D5C 


1403 


BAL 


8 t READ 


001496 


4580 


FEFO 




03038 


1404 


BAL 


8, PUNCH 


00i49A 


4160 


FB64 




02CAC 


1405 


LA 


6,ADR140 


00I49E 


47F0 


F97E 




02AC6 


1406 


B 


SETBCH 


00 14 A 2 


4580 


FC14 




0205C 


1407 


RPLl BAL 


8, READ 


0014A6 


4580 


FEFO 




03038 


1408 


BAL 


StPUNCH 


0014AA 


47F0 


6076 




0318E 


1409 


B 


NXTOP 



SAVE BRANCH ADDRESS 



REFERENCE BRANCH ADDRESS 
SET CONDITIONS FOR BRANCH 



FI50CT70 10/28/71 

00135400 
00135500 
00135600 
00135700 
00135800 
00135900 
00136000 
00136100 
00136200 
00136300 
00136400 
00136500 
00136600 



PRINT A LINE 



PAGE 



LOC OBJECT CODE 



ADDRl AD0R2 ST«T 



SOURCE STATEHENT 



F150CTT0 10/28/71 



0014AE 
0014AE 
0014B2 
0014R6 
0014BA 
00 14 BE 
0014C2 
00 14 C 6 
00 140 A 
0014CE 
0014D2 
0014D6 
00140A 
0014DE 
0014E2 
0014E8 
0014EC 
0014F0 
Q014F6 

0014FA 

0014FE 

001502 

001506 

00150A 

00150E 

001512 

001516 

00151C 

001522 

001526 

00I52A 
nm e; -> c 

001532 
001536 

00i53A 
00153E 
001542 
001546 
001548 
00154C 
00154E 
00155? 
001556 
00155A 
00155E 
001562 



4990 
4780 
4990 
4780 
4990 
4780 
4990 
4770 
4580 
416A 
47F0 
4580 
47F0 
0200 
4990 
4780 
D200 
900F 

953C 
4780 
9512 
4770 
4990 
4780 
47F0 
D283 
0C83 
4130 
4550 
90DF 
A 1 4.n 

41 DO 

9209 

4110 
4100 

58F0 
05EF 
98DF 
0704 
4580 
41C0 
4990 
4780 
416A 

47F0 



EE66 
00 2 C 
EE74 
D034 
EE72 
D034 
EE68 
F9EE 
FC9C 
0001 
F97F 
FC9C 
E076 
ElAD 
EE74 
D048 
ElAO 
E4A0 

ElAD 

D068 

ElAD 

F9C0 

EF72 

0020 

D02C 

E3D1 

E3D1 

E580 

FF7A 

E4A0 
PA A n 

E458 
E3D0 

E5B0 
E3D0 
1030 

6000 

FCCE 
7140 
EE74 
E076 
000 1 
F97E 



03FAE 
014DA 
03FBC 
014E2 
03FBA 
014E2 
03FB0 
02B36 
02DE4 
00001 
02AC6 
02DE4 
031BE 

AOOl 032F5 00001 
03FBC 
014F6 

A004 032F5 00004 
035E8 



032F5 

01516 

032F5 

02B08 
03FBA 
014CE 
014DA 

03519 000C9 

03519 0309C 
036F8 
30C2 
035E8 



70C9 

EC 5 4 



03518 



035A0 



036F8 
0351S 
00030 

00000 

02E16 

00140 
03FBC 
031BE 
00001 
02AC6 



1411 

1413 

1414 

1415 

1416 

1417 

1418 

1419 

1420 ^L4 

1421 

1422 

1423 WLl 

1424 

1425 WM 

1426 

1427 

1428 

1429 WHL2 

1430 ^^ 
1431 
1432 
1433 
1434 
1435 
1436 
1437 

1438 WNL20A 

1439 

1440 

1441 

1442 

1 /. /, -3 

A -r-r ^ 

1444 

1445 

1446 

1447+ 

1448+ 

1449+ 

1450+ 

1451 

1452 OUHPSW 

1453 

1454 

1455 

1456 

1457 

1458 



USING W,13 

CH 9,=H*1* 

BE WLl 

CH 9,=H"2» 

BE WM 

CH 9,=H»5» 

BE WH 

CH 9,=H»4» 

BNE ILEGLN 

BAL 8 r WRITE 

LA 6,1(10) 

B SETBCH 

BAL 8, WRITE 

B NXTOP 

MVC DCHARC 1) ,1(10) 

CH 9,=H»2« 

BE WML2 

MVC OCHAR(l) ,4(10) 

STH 13,15,MACREGSV 

MVI PRTP12,0 

CLI DCHAR,X«3C» 

BE WHL20A 

CLI 0CHAR,X»12» 

BNE ILEGOP 

CH 9,=H«5» 

BE WL4 

B WLl 

NVC PRNTBUFF+K 132) 

TR PRNTBUFF + K 132) 

LA 3,PRNT0CB 

BAL 5,UR0PEN 

STM 13,15,MACREGSV 

I A ^ *J fi,rr> cncxt 

l_M \J f rj Mi^o i_ VJ ^ V 

LA 13,SAVEAREA 

MVI PRNTBUFF,X»09» 

PUT PRNTDCB,PRNTBUF 

LA ItPRNTDCB LOAD 

LA 0,PRNTBUFF LOAD 

L 15,48(0,1) LOAD 

BALR 14,15 LINK TO P 

LH 13,15,0(6) 

NOPR 4 

BAL 8, COUNTER 

LA 12,SIMC0R+333 

CH 9,=H»?» 

BE NXTOP 

LA 6,1(10) 

B SETBCH 



REFERENCE BRANCH ADDRESS 
SET CONDITIONS FOR BRANCH 



SAVE HACRO REGS 

CLEAR CHANNEL 



12 INDICATOR 



,SIHC0R+201 MOVE WORD HARKS TO PRINT 

,TRWDNK ^ 

GET AODR OF PRINT DCS TAB 
GO OPEN PRINTER TAB 

SAVE MACRO REGS 

c ft\rtr Ar^rvocrcc Tn vn 

GIVE OS OUR SAVE AREA 
SET CARRIAGE CONTROL 
F WRITE WORD HARKS 
PARAMETER REG 1 
PARAMETER REG 
PUT ROUTINE AODR. 
UT ROUTINE 
RESTORE MACRO REGISTERS 

RETURN TO DUMP ROUTINE 



00136800 
00136900 
00137000 
00137100 
00137200 
00137300 
00137400 
00137500 
00137600 
00137700 
00137800 
00137900 
00138000 
00138100 
00138200 
00138300 
00138400 
00138500 
00138600 
00138700 
00138800 
00138900 
00139000 
00139100 
00139200 
00139300 
00139400 
00139500 
00139600 
00139610 
00139620 
00139700 

f\f\ t -><^ rtr» rt 

00139900 
00140000 
00140100 



SET CONDITIONS FOR BRANCH 



00140200 
00140210 
00140300 
00140400 
00140500 
00140600 
00140700 
00140800 



READ AND PRINT 



PAGE 39 



LOC OBJECT CODE 



AOORl AQQRZ Sim 



SOURCE 



001566 






001566 


4990 


EE66 


00156A 


4780 


D026 


00156E 


4990 


EE68 


001572 


4770 


F9EE 


001576 


D202 


FB64 


00157C 


4580 


FC9C 


001580 


4580 


FC14 


001584 


4160 


FB64 


001588 


47F0 


F97E 


00158C 


4580 


FC9C 


001590 


4580 


FC14 


001594 


47 FO 


E076 



AOOl 





1460 


03FAE 


1461 


0158C 


1462 


03FB0 


1463 


02B36 


1464 


02CAC 00001 


1465 


02DE4 


1466 


0205C 


1467 


02CAC 


1468 


02AC6 


1469 


02DE4 


1470 


02D5C 


1471 


031BE 


1472 



wR 



WRLl 



E STAT 


EMENT 


USING 


WR,13 


CH 


9,=H*1« 


BE 


WRLl 


CH 


9,=H»4» 


BNE 


ILEGLN 


MVC 


ADR 140 C 3), 1(10 


BAL 


8, WRITE 


BAL 


8 t READ 


LA 


6,A0R140 


B 


SETBCH 


BAL 


e, WRITE 


BAL 


8, READ 


B 


NXTOP 



SAVE BRANCH ADDRESS 



REFERENCE BRANCH ADDRESS 
SET CONDITIONS FOR BRANCH 



F150CT70 10/28/71 

00141000 
00141100 
00141200 
00141300 
00141400 
00141500 
00141600 
00141700 
00141800 
00141900 
00142000 
00142100 
00142200 



PRINT AND PUNCH 



PAGE 



40 



toe 


OBJECT CO 


001598 






001598 


4990 


EE66 


00159C 


4780 


D020 


Oai5AO 


4990 


EE68 


0015A4 


4770 


F9EF 


0015A8 


4580 


FC9C 


0015AC 


4580 


FEFO 


0015B0 


416A 


0001 


001534 


47F0 


F97E 


001588 


45 BO 


FC9C 


0015BC 


4 580 


FEFO 


0O15C0 


47 FO 


E076 



ADDRl A0DR2 STMT 



SOURCE STATEMENT 





1474 


03FAE 


1475 


015B8 


1476 


03FB0 


1477 


02B36 


1478 


02DE4 


1479 


03038 


1480 


00001 


1481 


02AC6 


1482 


02DE4 


1483 


03038 


1484 


031 BE 


1485 



WP 



wpLi 



USING 

CH 

BE 

CH 

BNE 

BAL 

BAL 

LA 

B 

BAL 

BAL 



WP,13 
9t=H«l* 
WPLI 
9,=H»4 f 
ILEGLM 
8, WRITE 
8, PUNCH 
6,1(10) 
SETBCH 
8 r WRITE 
8, PUNCH 
NXTOP 



REFERENCE BRANCH ADDRESS 
SET CONDITIONS FOR BRANCH 



F150CT70 10/28/71 

00142400 
00142500 
00142600 
00142700 
00142800 
00142900 
00143000 
00143100 
00143200 
00143300 
00143400 
00143500 



NRITE,REAO, AND PUNCH 



PAGE 



41 



LOC 


OBJECT CO: 


00ISC4 






0015C4 


4990 


EE66 


0015C8 


4780 


D024 


001'>CC 


4990 


eE68 


0015D0 


4770 


F9EE 


001504 


D202 


FB64 


00 15 DA 


4580 


FC9C 


0015DE 


4580 


FC14 


0015E2 


4580 


FEFO 


0015E6 


4160 


FB64 


0015EA 


47F0 


F97E 


0015EE 


4580 


FC9C 


0015F? 


4580 


FC14 


0015F6 


4580 


FEFO 


OOi^FA 


47F0 


E076 



ADDRI ADDR2 STMT 



SOURCE STATEHEfSiT 



AOOl 02CAC 





1487 


USING 


WRP, 13 


03FAE 


1488 WRP 


CH 


9,=H»1» 


015EE 


1489 


BE 


WRPLl 


03F80 


1490 


CH 


9,=H»4» 


02B36 


1491 


BNE 


ILEGLN 


00001 


1492 


HVC 


ADR140(3),l(iO} 


02DE4 


1493 


BAL 


8, WRITE 


02D5C 


1494 


BAL 


StREAD 


03038 


1495 


BAL 


8, PUNCH 


02CaC 


1496 


LA 


6 1 ADR 140 


02AC6 


1497 


B 


SETBCH 


02DE4 


1498 WRPLl 


BAL 


8, WRITE 


02D5C 


1499 


BAL 


8, READ 


03038 


1500 


BAL 


arPUNCH 


031BE 


1501 


B 


NXTOP 



SAVE BRANCH ADDRESS 



REFERENCE BRANCH ADDRESS 
SET CDMDITIONS FOR BRANCH 



F150CT70 10/28/71 

00143700 
00143800 
00143900 
00144000 
00144100 
00144200 
00144300 
00144400 
00144500 
00144600 
00144700 
00144800 
00144900 
00145000 
00145100 



SELECT STACKER 



PAGE 



42 



LOC OBJECT CODE 



00I5FE 






0013FE 


4990 


EE74 


001602 


4780 


D028 


001606 


4990 


EE72 


00160A 


4770 


F9EE 


00160E 


9504 


A004 


001612 


4780 


004C 


001616 


9508 


A 00 4 


00I61A 


4780 


0054 


00161E 






00161E 


416A 


000 1 


001622 


47F0 


F97E 


001626 


9504 


A 001 


00 162 A 


4780 


003C 


00 162 E 


9508 


AOOl 


001632 


4780 


D04A 


001636 


47F0 


E076 


00163A 


9241 


E21A 


00163E 


47F0 


E076 


001642 


9281 


E21A 


001646 


47F0 


E076 


00164A 


9241 


E21A 


00164E 


47F0 


0020 


001652 


9281 


F21A 


001656 


47F0 


0020 



ADDRl 


ADDR2 


STMT 


SOURCE STAT 


EMENT 






1503 




USIiMG 


SS,13 




03F8C 


1504 


ss 


CH 


9,=H»2" 




01626 


1505 




BE 


SSDG2 




03FBA 


1506 




CH 


9,=H»5« 




02B36 


1507 




BNE 


ILEGLN 


00004 




1508 


SSDG4 


CLI 


4(10),X«04« 




0i64A 


1509 




BE 


SSDG5 


00004 




1510 




CLI 


4(10»,X«08» 




01652 


1511 




BE 


SSDG6 






1512 


SSDG7 


EQU 


* 




00001 


1513 




LA 


6,1(10) 




02AC6 


1514 




B 


SETBCH 


00001 




1515 


SSDG2 


CLI 


lC10),X»04t 




0163A 


1516 




BE 


SSDGl 


00001 




1517 




CLI 


1(10),X»08» 




01642 


1518 




BE 


SSDG3 




031BE 


1519 




B 


NXTOP 


03362 




1520 


SSDGl 


mi 


PCHARAA,X«41» 




031BE 


1521 




B 


NXTOP 


03362 




1522 


SSDG3 


MVl 


PCHARAA,X»81» 




031 BE 


1523 




B 


MXTOP 


3362 




1524 


SSDG5 


MVI 


PCHARAA,X»41' 




0161 E 


1525 




B 


SSDG7 


03362 




1526 


SSDG6 


mi 


PCHARAA,X»81* 




0161E 


1527 




B 


SS0G7 



4 POCKET 

YES 

8 POCKET 

YES 

SELECT POCKET 4 

SELECT POCKET 8 

SELECT POCKET 4 

SELECT POCKET 8 



F150CT70 10/28/71 

00145300 
00145400 
00145500 
00145600 
00145700 
00145800 
00145900 
00146000 
00146100 
00146200 
00146300 
00146400 
00146500 
00146600 
00146700 
00146800 
00146900 
00147000 
00147100 
00147200 
00147300 
00147400 
00147500 
00147600 
00147700 



CONTROL CARRIAGE 



PAGE 



43 



LOG 


OBJECT CO! 


00165A 






00165A 


D200 


ElAD 


001660 


4990 


EE74 


001664 


4780 


00 IC 


001668 


4990 


EE72 


DD166C 


4770 


F9EE 


001670 


D200 


ElAD 


001676 


9130 


ElAD 


00 167 A 


4780 


DOB 4 


00167E 


4710 


D060 


001682 


9120 


ElAD 


001686 


4710 


D048 


00 16 B A 


4330 


ElAD 


00168E 


5430 


EE08 


001692 


8930 


0003 


001696 


5630 


EEOC 


00169A 


4230 


6300 


00169E 


47F0 


DODA 


00 16 A 2 


4330 


ElAO 


0016A6 


5430 


EEoa 


0016AA 


8930 


0003 


0016AE 


4230 


E3D0 


001682 


9603 


E3D0 


0016B6 


47F0 


OOAC 


0016BA 


4330 


ElAD 


0016BE 


5430 


EDEO 


0016C2 


910F 


ElAD 


0016C6 


4740 


DO 74 


0016CA 


4130 


OOOA 


0016CE 


8930 


000 3 


001602 


4230 


E300 


001606 


9681 


E3D0 


001 60 A 


47F0 


DODA 


0016DE 


4330 


ElAD 


0016E2 


9500 


ElAO 


0016E6 


4780 


E076 


0016EA 


910F 


ElAD 


0016EE 


4740 


D09C 


0016F2 


4130 


OOOA 


0016F6 


5430 


EDEO 


0016FA 


8930 


000 3 


0016FE 


5630 


EE 10 


001702 


4230 


E3D0 


001706 






001706 


4130 


E5B0 


00170A 


4S50 


FF7A 


00 170 E 


90DF 


E4A0 


001712 


4160 


E4A0 


001716 


4100 


E458 


00171A 


4110 


E5B0 


00171E 


4100 


E3D0 


00172? 


58 FO 


1030 


001726 


05 EF 




001728 


980F 


6000 



AODRI ADDR2 Sini 



SOURCE STATEMENT 



AOOl 032F5 



A004 



032F5 

032F5 



032F5 



03518 



032F5 



03518 

032F5 
032F5 



00001 
3FBC 
01676 
03FBA 
02B36 
00004 

016DE 

016BA 

016A2 

032F5 
03F50 
00003 
03F54 
03518 
01734 
032F5 
03F50 
00003 
03518 

01706 
032F5 

03F28 

016CE 
OOOOA 
00003 

03518 



032F5 

031BE 

016F6 
OOOOA 
03F28 
00003 
03F58 
03518 

036F8 
030C? 
035E8 
035E8 
035A0 

036F8 
03518 

00030 

00000 



1529 
1530 
1531 
1532 
1533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
1547 
1548 
1549 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
155 7 
1558 
1559 
1560 



CC 



CCL2 



CCIMSP 



CCAFSK 



CCl 



1562 CCIHSK 

1563 

1564 

1565 

1566 

1567 

1568 CC2 

1569 

1570 

1571 

1572 CCfvOW 

1573 

1574 

1575 

1576 

1577 

1578 

1579+ 

1580 + 

1581 + 

1582 + 
1583 



USING 

mvc 

CH 

RE 

CH 

BNE 

MVC 

TM 

BZ 

BO 

TM 

BO 

IC 

H 

SLL 



STC 
B 

IC 
N 
SLL 

STC 

01 
B 

IC 
H 

TM 
BM 
LA 
SLL 

STC 

01 

D 

l.> 

IC 
CLI 

BE 

TM 

BH 

LA 

N 

SLL 



STC 

EQU 

LA 

BAL 

SIM 

LA 

LA 

PUT 

LA 

LA 

L 

BALR 

LM 



CC,13 

DCHAR{ 1) tl(lO) 

9 , =H • 2 • 

CCL2 

9,=H»5» 

ILEGLM 

DCHARC 1),4( 10) 

0CHAR,X»30» 

CCIHSK 

CCAFSK 

DCHAR,X»20» 

CCIHSP 

3,DCHAR 

3,=F»3» 

3 1 3 

3,=F«1» 

3,PRNTBUFF 

CCDQNE 

3,DCHAR 

3,=F«3» 

3,3 

3,PR.MTBUFF 

PRNTBUFFtX«03» 

CCNOW 

3,DCHAR 

3,=F»15» 

DCHAR,X»0F» 

CCl 

3,10 

3,3 

3fPRNTBUFF 

PRNTBUFF,X»81« 

Vf u. u/ tj I s i_ 

3,DCHAR 

DCHAR,X»00« 

NXTOP 

DCHAR,X»0F» 

CC2 

3,10 

3,=F»15» 

3,3 

3,=F»131« 

3,PRNTBUFF 
■*. 

3,PRNTDCB 

5tUR0PEN 

13,15,HACREGSV 

6,MACREGSV 

13,SAVEAREA 

PRNTDCB,PRNTBUFF 

1,PRNTDCB LOAD PARAMETER REG 1 

OtPRlviTBUFF LOAD PARAHETER REG 

15,48(0,1) LOAD PUT ROUTINE ADDR. 

14,15 LINK TO PUT ROUTIME 

13,15,0(6) RESTORE MACRO REGISTERS 



hEXJ 2 LINES ADDED 
GET ADDR OF PRINT DCB 
GO OPEN THE PRINTER 
SAVE MACRO REGS 

SAVE ADDRESS TO XR 

GIVE OS OUR SAVE AREA 



F150CT70 10/28/71 

00147900 
00148000 
00148100 
00148200 
00148300 
00148400 
00148500 
00148600 
00148700 
00148800 
00148900 
00149000 
00149100 
00149200 
00149300 
00149400 
00149500 
00149600 
00149700 
00149800 
0()149900 
00150000 
00150100 
00150200 
00150300 
00150400 
00150500 
00150600 
00150700 
00150800 
00150900 
00151000 

nm KIT nn 

VJfVJf JL ^ X X\^\J 

00151200 

00151300 

00151400 

00151500 

00151600 

00151700 

00151800 

00151900 

00152000 

00152100 

TAB 00152200 

TAB 00152210 

TAB 00152220 

TAB 00152230 

00152300 

00152400 

00152500 



00152600 



CO^JTROL CARRIAGE 



PAGE 
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LOG OBJECT CODE 



AODRl A00R2 STMT SOURCE STATEMENT 



10/28/71 



00172C 4580 FCCE 
001730 9209 E3D0 

001734 4990 EF74 
001738 4780 £076 
00173C 416A 0001 
001740 47F0 F97E 



03518 



02E16 



03FBC 
031BE 
00001 
02AC6 



1584 BAL 8, COUNTER 

1585 HVI PRNTByFF,X«09» 

1586 ^f mi PRTP12,0 

1587 CCDOI^E CH 9,=H»2« 
158B BE HXTOP 

1589 lA 6,1(10) 

1590 B SETBCH 



CLEAR CHAMNEL 12 INDICATOR 



00152700 
00152800 
00152900 
00153000 
00153100 
00153200 
00153300 



TAPE CONTROL OPERATIONS 
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LCC OBJECT CODE 



ADDkI A0DR2 STNT 



SOURCE STATEMENT 



F150CTT0 10/28/71 



001744 






001744 


4990 


EE72 


001748 


4770 


F9EE 


00174C 


9529 


A004 


001750 


4780 


D034 


0017S4 


9524 


A004 


001758 


4780 


D03C 


00175C 


9514 


A004 


001760 


4780 


D08C 


001764 


95 3? 




001768 


4780 


D044 


0dl76C 


9535 


A 00 4 


001770 


4780 


D04C 


001774 


47F0 


F9C0 


001778 


9207 


DOAC 


00177C 


47F0 


0050 


001780 


921F 


DOAC 


001784 


47F0 


D050 


001788 


9227 


DOAC 


00178C 


47F0 


0050 


001790 


9217 


OOAC 


001794 


4580 


FFDO 


001798 


5030 


E54C 


00179C 


9200 


E55e 


0017A0 


9242 


E538 


0017A^ 


4580 


FF3C 


0017A8 


90DF 


E4A0 


0017AC 


4160 


E4A0 


00 17 BO 


41 DO 


E45 8 



0017B4 4110 E538 
0017B8 OAOO 
0017BA 9BEF 6004 



00004 
00004 
00004 

(_f (J !^r \} •+ 

00004 

017F0 
017F0 
017FU 
017F0 



036A0 
03680 



0017BE 


4110 


E55 8 


0017C2 


4100 


0001 


0017C6 


OAOl 




0017C8 


9 8 OF 


6000 


0017CC 


47F0 


E076 


0017D0 


432 A 


0003 


0017D4 


5420 


EE14 


001708 


950A 


A003 


0017DC 


4770 


D09E 


0017E0 


1B22 




0017E2 






0017E2 


8920 


0003 


00I7E6 


5842 


E560 


0017EA 


47F0 


E04E 


0017EE 


0000 




0017F0 


0000000060000001 


0017F8 


03O0O000?O0D00ni 



00003 



03FBA 
02B36 

01778 

01780 

01700 
01788 

01790 

02B08 

01794 

01794 

01794 

03118 
03694 



030 84 

035 E8 
035E8 
035A0 

03680 

00004 

036A0 
0000 1 

OOGOO 
031BE 
00003 

3 F 5 C 

017E2 



00003 

036AB 
03196 



CU 



RWD 

WTM 

BSP 

SKP 
CUl 



1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 
1608 
1609 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
1620 
1621 

1622 + 

1623 + 
1624 
1625 
1626+ 
1627+ 
1628+ 
1629 
1630 
1631 
1632 
1633 
1634 
1635 

1636 RWUA 
1637 
1638 
1639 



RWU 



US IMG 

CH 

BME 

CLI 

BE 

CLI 

BE 

CLI 

BE 

CLI 

BE 

CLI 

BE 

B 

MVI 

B 

MVI 

B 

mi 

B 

mi 

BAL 
ST 

mi 
mi 

BAL 

STH 

LA 

LA 

EXCP 

LA 

SVC 

LH 

WAIT 

LA 

LA 

SVC 

LH 



R 



1640 
1641 



CUCCW 



IC 

N 
CLI 

BNE 

SR 

EOU 

SLL 

L 



ccw 

ccw 



CU,13 

9t=H»5* 

ILEGLN 

4(10) ,X»29» 

RWD 

4{10),X»24» 

WTM 

4C10),X»14» 

RWU 

4(10) *X*32* 

BSP 

4{10) ,X«35» 

SKP 

ILEGOP 

CUCC^tX»07» 

CUl 

CUCCWtX»lF» 

GUI 

CUCCWfX«27» 

CUl 

CUCCW,X«17» 

8,FNDRIV 

3,CUDCB 

CUECBfO 

CUI0B,X»42* 

StTSTOPEN 

13,15tMACREGSV 

6tHACREGSV 

13,SAVEAREA 

CUIOB 

1,CU10B LOAD PARAMETER 

ISSUE SVC FOR EXCP 
14f 15f4(6) RESTORE 
1,ECB=CUECB 

ItCUECB LOAD PARAMETER REG 1 
0,1(0,0) LOAD f^ARAHETER REG 

1 LINK TO WAIT ROUTINE 



SET COKsMAND CHAIN + UNRELATED BITS 



SAVE 

SAVE 
GIVE 



HACftO REGS 
ADDRESS TO XR 
OS OUR SAVE AREA 



REG 1 



13,15,0(6) 

NX TOP 

2,3(10) 

2,=F»7« 

3(10),X»0A» 

RWUA 

2,3 

4,TAPADR+4(2) 
RWUCLOSE 

0,0,X»60»,1 

X«03S0,X«20»tl 



RESTORE (MACRO REGISTERS 
GET 1401 DRIVE NUMBER 



GO CLOSE 



CONTROL 

CHAINED 



UNIT OP 

TO A NOP 



TAB 
TAB 



00153500 
00153600 
00153700 
00153800 
00153900 
00154000 
00154100 
00154200 
00154300 
00154400 
00154500 
00154600 
00154700 
00154800 
00154900 
00155000 
00155100 
00155200 
00155300 
00155400 
00155500 
00155600 
00155700 
00155800 
00155900 
00156000 
00156100 
00156200 
00156300 
00156400 



00156600 



00156700 
00156800 
00156900 
00157000 
00157100 
00157200 
00157300 
00157400 
00157500 
00157600 
00157700 

00157800 
00157900 



MULTIPLY 



PAGE 
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LOG OBJECT CODE 



ADDRl A0DR2 STMT 



SOURCE STATEr^EMT 



001800 
001800 
001804 
001808 
00180C 
001810 
001812 
001816 
00181A 
00181C 
001820 
001822 
001824 
001828 
00182C 
001830 
001834 
001838 
00183C 
001840 
001844 
001848 
00184C 
001850 
001854 
001B58 
00185C 
001860 
001864 
001868 
00186C 
001870 
001874 
001878 
00187A 
00187E 
001882 
001886 
00 18 8 A 
00188E 
001892 
001894 
001898 
00189A 
00189E 
0018A0 
0018A2 
0018A4 
0018A8 
0018AC 
0018B0 
0018B4 
0018B6 
0018BA 
0018BE 



4990 
4770 
416A 
4580 
18B5 
416A 
4580 
18C5 
50C0 
185B 
186C 
920A 
9140 
4710 
4B50 
4B60 
47F0 
4B60 
920A 
4110 
4120 
9120 
4780 
9110 
4710 
4110 
9120 
4780 
9110 
4710 
4120 
9200 
1912 
4780 
9201 
4316 
5410 
4910 
4770 
IBll 
4100 
1211 
4780 
185C 
184B 
188C 
4324 
5420 
4920 
4770 
1B22 
4335 
5430 
4930 



EE64 
F9EE 
0001 
FAEO 

0004 

FAEO 

D16B 



6000 

5000 
D03C 
EE66 
EE66 
0024 
EE74 
6001 
0000 
0000 
6000 
0060 
6000 
DO 60 
0001 
BOOO 
D074 
BOOO 
D074 
0001 
0164 

D082 
D164 
0000 
EDEO 
EE6A 
D094 

0000 

D12C 



0000 

EDEO 
EE6A 

DOB 6 

0000 
EDEO 

EE6A 



00000 
00000 



00001 

00000 
00000 

00000 
00000 

01964 

01964 



03FAC 
02B36 
00001 
02C28 

00004 
02C28 

01968 



0183C 
03FAE 
03FAE 
01824 
03FBC 

00000 

00000 

01860 

01860 
00001 

01874 

01874 
00001 



01882 

00000 
03F28 
3F32 
01894 

00000 

0192C 



00000 
03F28 
03FB2 

01836 

00000 

03F2e 
03FB2 



1643 
1644 
1645 
1646 
1647 
1648 
1649 
1650 
1651 
1652 
1653 
1654 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 
1668 
1669 
1670 
1671 
1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 
1680 
1681 
1682 
1683 
1684 
1685 
1686 
1687 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 



HI 



H2 



ivf^. 



MA. 



M5 



M6 



H7 



USING 


H,13 


CH 


9,=H«7* 


8NE 


ILEGLN 


LA 


6,1{10} 


BAL 


8,CVAD43 


LR 


llf5 


LA 


6,4(10) 


BAL 


B,CVAD43 


LR 


12,5 


ST 


12,^4PYSAV 


LR 


5,11 


LR 


6,12 


HVI 


0(6),X»0A» 


TM 


0(5),X»40» 


BO 


H2 


SH 


5,=H»1» 


SH 


6,=H»1« 


B 


Ml 


SH 


6,=H»2» 


MVI 


1{6),X«0A» 


LA 


1,0 


LA 


2,0 


TH 


0C6),X«20» 


BZ 


M3 


TM 


0C6),X«10« 


BO 


M3 


LA 


Ifl 


TM 


0(11),X»20» 


B2 


H4 


TM 


0{11),X»10» 


BO 


H4 


LA 


2,1 


HVI 


MINPRDjO 


CR 


1,2 


BE 


N5 


MVI 


MINPR0,1 


IC 


1,0(6) 


N 


1,=F»15» 


CH 


1,=H»10« 


BNE 


*+6 


SR 


Itl 


LA 


0,0 


LTR 


1,1 


BZ 


m 


LR 


5,12 


LR 


4,11 


LR 


8,12 


IC 


2,0(4) 


N 


2,=F»15« 


CH 


2,=H«10« 


BHE 


*+6 


SR 


2,2 


IC 


3,0(5) 


hi 


3,=F*15* 


CH 


3,-H«10» 



AVE UNITS ADDRESS OF PRODUCT 
NTIALIZE PRODUCT AREA 



c 
I 

COMPARE SIGNS 

a. 



SIGNS EQUAL 
SIGNS U^^EQUAL 



0/ ZERO 

NO 

YES, CLEAR 

Q/ IS MULTIPLICAND DIGIT ZERO 

SET REGISTERS FOR ADD 

LOAD PRODUCT POINTER 



0/ ZERO 

HO 

YES, CLEAR 



Q/ ZERO 



F150CT70 10/28/71 

00158100 
00158200 
00158300 
00158400 
00158500 
00158600 
00158700 
00158800 
00158900 
00159000 
00159100 
00159200 
001593(30 
00159400 
00159500 
00159600 
00159700 
00159800 
00159900 
00160000 
00160100 
00160200 
00160300 
00160400 
00160500 
00160600 
00160700 
00160800 
00160900 
00161000 
00161100 
00161200 

rxr\ 1 e ■% i/^r* 
00161400 

00161500 
00161600 
00161700 
00161800 
00161900 
00162000 
00162100 
00162200 
00162300 
00162400 
00162500 
00162600 
00162700 
00162800 
00162900 
00163000 
00163100 
00163200 
00163300 
00163400 
00163500 





HULT] 


iPLY 
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LOG 


OBJECT CODE 


A DDR I 


A DOR 2 


STMT 


SOURCE STA1 


"EMENT 




F150CT70 


10/28/71 


0018C2 


4770 


D0C8 




016C8 


1698 




BNE 


* + 6 


NO 




00163600 


0018C6 


IB 33 








1699 




SR 


3,3 


YES, CLEAR IT 




00163700 


0018C8 


1A32 








1700 




AR 


3,2 






00163800 


0018C4 


1A30 








1701 




AR 


3,0 






00163900 


0018CC 


4100 


0000 




00000 


1702 




LA 


0,0 






00164000 


001800 


4930 


EE6C 




03FB4 


1703 




CH 


3,=H«9« 






00164100 


0018D4 


47 DO 


DOEO 




018E0 


1704 




BNH 


H8 






00164200 


0018D8 


4B30 


EE6A 




03FB2 


1705 




SH 


3,=H«10« 






00164300 


00 18 DC 


4100 


0001 




00001 


1706 




LA 


0,1 






00164400 


OOIBEO 


4238 


0000 




00000 


1707 


H8 


STC 


3,0(8) 


STORE RESULT 




00164500 


0018E4 


9500 


8000 


00000 




1708 




CLI 


0{8),X»00» 


0/ RESULT ZERO 




00164600 


OOIBES 


4770 


DOFO 




018F0 


1709 




BNE 


*+8 


NO 




00164700 


0018EC 


920A 


8000 


00000 




1710 




mi 


0C8),X»0A» 


YES, SET 8-2 BITS 




00164800 


0018F0 


4B40 


EE66 




03FAe 


1711 




SH 


4,=H*1» 






00164900 


0018F4 


4B50 


EE66 




03FAE 


1712 




SH 


5,=H»1» 






00165000 


0018F8 


4B80 


EE66 




03FAE 


1713 




SH 


8 , =H • 1 » 






00165100 


0018FC 


9140 


4001 


00001 




1714 




TM 


1(4),X»40» 






00165200 


001900 


4780 


D0A4 




018A4 


1715 




BZ 


m 






00165300 


001904 


4335 


0000 




00000 


1716 




IC 


3,0(3) 


ADD CARRY TO NEXT PRODUCT DIGIT 


00165400 


001908 


4930 


EE6A 




03F82 


1717 




CH 


3,=H»10» 


Q/ ZERO 




00165500 


00190C 


4770 


0112 




01912 


1718 




BNE 


'?^+6 


NO 




00165600 


001910 


1B33 








1719 




SR 


3,3 


YES, CLEAR 




00165700 


001912 


1A30 








1720 




AR 


3,0 






00165800 


001914 


4238 


0000 




00000 


1721 




STC 


3,0(8) 


* 




00165900 


001918 


9500 


8000 


00000 




1722 




CLI 


0(8),X«00» 


0/ RESULT ZERO 




00166000 


00191C 


4770 


0124 




01924 


1723 




RME 


*+8 


NO 




00166100 


001920 


920A 


8000 


00000 




1724 




MVI 


0{8I,X»0A* 


YES, SET 8-2 BITS 




00166200 


001924 


46 10 


EE66 




03FAE 


1725 




SH 


1,=H«1» 






00166300 


001928 


4760 


0094 




01894 


1726 




BC 


6,H6 


COUNT NOT ZERO, ADO NEXT 


DIGIT 


00166400 


00192C 


4B60 


EE66 




03FAE 


1727 


m 


SH 


6,=^H»1» 






00166500 


001930 


9440 


6001 


00001 




1728 




NI 


1(6),X«40» 


CLEAR LAST USED MULTIPLICAND DIGIT 


00166600 


001934 


960 A 


6001 


00001 




1729 




01 


U6),X»0A« 


* 




00166700 


001938 


9140 


6001 


00001 




1730 




TM 


1(6),X*40» 






00166800 


00193C 


4710 


D148 




01948 


1731 




BO 


HIO 






00166900 


001940 


4BC0 


EE66 




03FAE 


1732 




SH 


12,=H»1' 






00167000 


001944 


47F0 


D082 




01882 


1733 




B 


M5 






00167100 


001948 


18B4 








1734 


MIO 


LR 


11,4 






00167200 


00194A 


58C0 


D168 




01968 


1735 




L 


12,MPYSAV 


RELOAD UNITS ADDRESS OF 


PRODUCT 


00167300 


00194E 


9620 


cooo 


00000 




1736 




01 


0( 12),X»20» 






00167400 


001952 


9501 


D164 


01964 




1737 




CLI 


HINPRD,! 






00167500 


001956 


4780 


D15E 




0195E 


1738 




BE 


Mil 






00167600 


00195A 


9630 


COOO 


00000 




1739 




01 


0C12),X»30» 






00167700 


00 19 5 E 


18C6 








1740 


Mil 


LR 


12,6 






00167800 


001960 


47F0 


E076 




031BE 


1741 




B 


NXTOP 






00167900 


001964 










1742 


MINPRD 


DS 


C 






00168000 


001968 










1 74 3 


^PYSAV 


DS 


F 






00168100 



DIVIDE 



PAGE 
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LOG 


OBJECT CODE 


ADDRl 


ADDR2 


STMT 


SOURCE STATEHEiMT 


F150CT70 


10/28/71 


00196C 










174 5 




USIMG 


0,13 




00168300 


00196C 


4990 


EE64 




03FAC 


1746 





CH 


9,=H«7» 


0/ IS LENGTH ( BYTES 


00168400 


001970 


4770 


F9EE 




02B36 


1747 




BNE 


ILEGLN 


NO 


00168500 


001974 


416A 


0001 




00001 


1748 




LA 


6,1(10) 


YES, C0r4VERT ADDRESSES 


00168600 


001978 


4580 


FAEO 




02C28 


1749 




BAL 


8tCVAD43 




00168700 


00197C 


18B5 








1750 




LR 


11,5 


^ 


00168800 


00197E 


416A 


0004 




00004 


1751 




LA 


6,4(10) 


* 


00168900 


001982 


4580 


FAEO 




02C28 


1752 




BAL 


8,C\/AD43 


^ 


00169000 


001986 


18C5 








1753 




LR 


12,5 


* 


00169100 


001988 


4100 


0001 




00001 


1754 




LA 


0,1 


SET REG TO 1 FOR + OR - 1 


00169200 


00198C 


181B 








1755 




LR 


1,11 


SCAN DIVISOR FOR LENGTH AND IS IT ZERO 


00169300 


00198E 


9200 


FB6B 


02CB0 




1756 




mi 


TEMPI, 


* 


00169400 


001992 


9200 


FB69 


02CB1 




1757 




mi 


TEMP2,0 


* 


00169500 


001996 


0100 


F869 1000 


02CB1 


00000 


1758 


Dl 


MVN 


TE«P2,0(I) 


:^ 


00169600 


00199C 


9 50 A 


FB69 


02CB1 




1759 




CLI 


TEMP2,X«0A» 


* 


00169700 


0019A0 


4780 


D044 




019B0 


1760 




BE 


DIA 


* 


00169800 


0019A4 


9500 


FB69 


02CB1 




1761 




CLI 


TENP2,X»00» 


^ 


00169900 


0019A8 


4780 


DO 4 4 




019B0 


1762 




BE 


DIA 


« 


00170000 


0019AC 


9201 


FB68 


02CB0 




1763 




HVI 


TEMPI, 1 


* 


00170100 


0019B0 


IBIO 








1764 


^iA 


SR 


1,0 


* 


00170200 


0019B2 


9140 


1001 


00001 




1765 




TM 


1(1) ,X«40» 


* 


00170300 


0019B6 


4780 


D02A 




01996 


1766 




BZ 


Dl 


^ 


00170400 


0019BA 


9500 


FB68 


02CB0 




1767 




CLI 


TEMP 1,0 


Q/ IS DIVISOR ZERO 


00170500 


0019BE 


4770 


005 E 




019CA 


1768 




BNE 


D2 


NO, DK 


00170600 


0019C2 


9201 


ElAB 


032F3 




1769 




HVI 


OVRFLCl 


YES, SET OVERFLOW INDICATOR 


00170700 


0019C6 


47F0 


E076 




031BE 


1770 




B 


NXTOP 




00170800 


0019CA 


186C 








1771 


D2 


LR 


6,12 


FIND HIGH ORDER QUOTIENT LOCATION 


00170900 


0019CC 


1A61 








1772 




AR 


6,1 


* 


00171000 


0019CE 


1B6B 








1773 




SR 


6,11 


•*» 


00171100 


001900 


1B60 








1774 




SR 


6,0 


* 


00171200 


0019D2 


9200 


FB68 


02CB0 




1775 


03 


mi 


TEMPI, 


PREPARE TO COMPARE DIVISOR + DVDND 


00171300 


00I9D6 


181B 








1776 




LR 


Itll 




00171400 


001903 


182C 








1777 




LR 


2,12 




00171500 


00190A 


4331 


0000 




00000 


1778 


04 


IC 


3,0(1) 


GET DIGITS 


00171600 


00190E 


4342 


0000 




00000 


1779 




IC 


4,0(2) 


* 


00171700 


0019E2 


5430 


EOEO 




03F28 


1780 




H 


3,=F»15« 


* 


00171800 


0019E6 


5440 


EOEO 




03F28 


1781 




H 


4,=F»15» 


sje 


00171900 


0019EA 


4930 


EE6A 




03FB2 


1782 




CH 


3,=Hno» 


0/ ZERO 


00172000 


0019EE 


4770 


0088 




019F4 


1783 




BNE 


*+6 


NO 


00172100 


0ai9F2 


1B33 








1784 




SR 


3,3 


YES, CLEAR IT 


00172200 


0019F4 


4940 


EE6A 




03FB2 


17B5 




CH 


4,=H'10» 


Q/ ZERO 


00172300 


0019F8 


4770 


009 2 




019FE 


1786 




BNE 


♦-I-6 


NO 


00172400 


0019FC 


1B44 








1787 




SR 


4,4 


YES, CLEAR 


00172500 


0019FE 


1934 








1788 




CR 


3,4 


COMPARE 


00172600 


OOIAOO 


4780 


D0A8 




01A14 


1789 




BE 


05 


EQUAL, DO NOT CHANGE INDICATOR 


00172700 


001A04 


4720 


DO A 4 




OIAIO 


1790 




BH 


04A 


A-DIGIT GREATER 


00172800 


001A08 


9200 


FB68 


02CB0 




1791 




MVI 


TEMP 1,0 


A-DIGIT LESS 


00172900 


OOIAOC 


47F0 


D0A8 




01A14 


1792 




B 


D5 


^ 


00173000 


OOIAIO 


9201 


FB68 


02CB0 




1793 


04A 


HVI 


TEMPI, 1 


SET A GREATER THAN B 


00173100 


001A14 


IBIO 








1794 


05 


SR 


1,0 


DECREMENT FIELD POINTERS 


00173200 


001A16 


1S2C 








1795 




SR 


2,0 


^■ 


00173300 


001 Al 8 


9140 


lOCl 


00001 




1796 




IfA 


1(1 ),X»4( • 


Q/ END OF A-FIELD 


00173400 


OOIAIC 


4780 


D06E 




19DA 


1797 




BZ 


D4 


NO 


00173500 


001A20 


910A 


2000 


00000 




1798 




TN 


0(2),X»0A» 


TEST 1 MORE DIVIDEND DIGIT 


00173600 


001A24 


4710 


DOC 8 




01A34 


1799 




BO 


D6 


ZERO 


00173700 





DIVIDE 
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LOG 


OBJECT CODE 


ADDRI 


ADDR2 


STHT SOUi 


aCE STATE 


HENT 


F150CT70 


10/28/71 


001A28 


910F 2000 


00000 




1800 


TK 


0C2)tX»0F« 


0/ BLANK 


00173800 


001A2C 


4780 DOCS 




01A34 


1801 


BZ 


D6 


YES, TREAT SAHE AS ZERO 


00173900 


001 A 30 


9200 FB68 


02GB0 




1802 


MVI 


TEMPItO 


1, DIVIDEND GREATER THAN DIVISOR 


00174000 


001A34 


95 01 FB68 


02CB0 




1803 06 


CLl 


TEHP1,1 


0/ IS DIVISOR TOO LARGE 


00174100 


001 A3 8 


4780 D194 




OIBOO 


1804 


BE 


010 


YES 


00174200 


001A3C 


181B 






1805 


LR 


1,11 


SET REGISTERS FOR COMPLEMENT ADD 


00174300 


001A3E 


182C 






1806 


LR 


2,12 


^ 


00174400 


001 A 40 


4180 0001 




00001 


1807 


LA 


8tl 


SET CARRY 


00174500 


001A44 


4352 0000 




00000 


1808 D7 


IG 


5,0(2) 


GET B~FIELD DIGIT 


00174600 


001A48 


5450 EOEO 




r-\ -^t IT "^ r% 


1809 


H 


5,=F'15* 


* 


00174700 


001A4C 


4950 EEbA 




03FB2 


1810 


CH 


5,=H«10» 


Q/ ZERO 


00174800 


001 A 50 


4770 "'DOE A 




01A56 


1811 


BNE 


^+6 


NO 


00174900 


001A54 


1B55 






1812 


SR 


5,5 


YES, CLEAR 


00175000 


001A56 


4140 0009 




00009 


1813 


LA 


4,9 


GET COHPLEHENT OF A-FIELD DIGIT 


00175100 


001 ASA 


4331 0000 




00000 


1814 


IC 


3,0CI) 


* 


00175200 


001A5E 


5430 EOEO 




03F28 


1815 


H 


3,=F»15» 


^ 


00175300 


001A62 


4930 EE6A 




03FB2 


1816 


CH 


3,=H»10» 


Q/ ZERO 


00175400 


001A66 


4770 01 00 




01A6C 


1817 


BNE 


♦+6 


NO 


00175500 


001A6A 


1B33 






1818 


SR 


3,3 


YES, CLEAR IT 


00175600 


001A6C 


1B43 






1819 


SR 


4,3 


* 


00175700 


001A6E 


1A54 






1820 


AR 


5,4 


ADD TO B-FIELO DIGIT 


00175800 


001A70 


1A58 






1821 


AR 


5,8 


ADD CARRY 


00175900 


001A7? 


4180 0000 




00000 


1822 


LA 


8,0 


CLEAR CARRY 


00176000 


001A76 


4950 EE6C 




03FB4 


1823 


CH 


5,=H«9« 


0/ RESULT GREATER THAN 9 


00176100 


001A7A 


47D0 DllA 




01A86 


1824 


8NH 


D8 


NO 


00176200 


001A7E 


4B50 EE6A 




03FB2 


1825 


SH 


5,=H«10« 


YES, SUBTRACT 10 FROM RESULT 


00176300 


OOIAS? 


4180 0001 




00001 


1826 


LA 


8,1 


SET CARRY 


00176400 


001A86 


4250 D12F 




01A9B 


1827 08 


STG 


5,09+1 


STORE RESULT 


00176500 


001 ABA 


94F0 2000 


00000 




1828 


HI 


0(2),X»F0» 


* 


00176600 


001A8E 


9500 D12F 


01A9B 




1829 


CLI 


D9+1,X»00» 


0/ RESULT ZERO 


00176700 


001A92 


4770 D12E 




01A9A 


1830 


BNE 


09 


NO 


00176800 


001A96 


960A 012F 


01A9B 




1831 


01 


D94-1,X*0A« 


YES, SET 8-2 BITS 


00176900 


001A9A 


9600 2000 


00000 




1832 09 


01 


0C2),Q 


* 


00177000 


001A9E 


1B20 






1833 


SR 


2,0 


DECREMENT A~ AND B-AODRESSES 


00177100 


OOIAAO 


IBIO 






1834 


SR 


1»0 


* 


00177200 


001AA2 


9140 1001 


00001 




1835 


TM 


1{1),X»40» 


0/ END OF A-FIELD 


00177300 


001AA6 


4780 D008 




01A44 


1836 


BZ 


07 


NO, PROCESS NEXT DIGIT 


00177400 


001 AAA 


4332 0000 




00000 


1837 


IC 


3,0(2} 


YES, ADD 1 MORE DIVIDEND DIGIT 


00177500 


OOIAAE 


5430 EOEO 




03F28 


1838 


N 


3,=F»15» 


!» 


00177600 


001AB2 


4930 EE6A 




03FB2 


1839 


CH 


3,=H»10» 


0/ ZERO 


00177700 


001AB6 


4770 0150 




OIABC 


1840 


BNE 


'5^+6 


NO 


00177800 


001 ABA 


1B33 






1841 


SR 


3,3 


YES, CLEAR IT 


00177900 


OOIABC 


4133 0009 




00009 


1842 


LA 


3,9(3} 


♦ 


00178000 


001 AGO 


1A38 






1843 


AR 


3,8 


* 


00178100 


001AG2 


4930 EE6C 




03FB4 


1844 


CH 


3,=H»9» 


Q/ RESULT GREATER THAN 9 


00178200 


001AG6 


47D0 D162 




01 ACE 


1845 


BNH 


D9A 


NO 


00178300 


OOIACA 


4B30 EE6A 




03FB2 


1846 


SH 


3 , =H • 1 • 


YES, SUBTRACT 10 


00178400 


OOIACE 


42 32 0000 




00000 


1847 D9A 


STG 


3,0(2) 


STORE RESULT 


00178500 


001A02 


9500 2000 


00000 




1848 


CLI 


0(2),X»00» 


0/ RESULT ZERO 


00178600 


001AD6 


4770 D172 




OlADE 


1849 


BNE 


*+8 


NO 


00178700 


001 A DA 


920A 2000 


00000 




1850 


HVI 


0(2),X»0A« 


YES, SET 8-2 BITS 


00178800 


OOIADE 


4336 0000 




00000 


1851 


IG 


3,0(6) 


ADO 1 TO QUOTIENT DIGIT 


00178900 


0OIAF2 


5430 EDEO 




03F28 


1852 


H 


3,=F»15» 


* 


00179000 


001AE6 


4930 EE6A 




03FB2 


1853 


CH 


3,=H»10» 


0/ ZERO 


00179100 


OOIAEA 


4770 01 84 




OlAFO 


1854 


BNE 


^+6 


NO 


00179200 





DIVIDE 
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LOG 


OBJECT CODE 


ADDRl 


ADDK2 


STHT 


SOURCE STATE 


HENT 






F150CT70 


10/28/71 


OOIAEF 


1B33 








1855 




SR 


3,3 


YES, CLEAR IT 






00179300 


OOIAFO 


1A30 








1856 




AR 


3,0 


* 






00179400 


001AF2 


4230 


F&68 




02CB0 


1857 




STC 


3, TEMPI 


STORE RESULT 






00179500 


001AF6 


DlOO 


6000 FB68 


00000 


02CB0 


1858 




mn 


0(1,6),TEHP1 


* 






00179600 


OOIAFC 


47F0 


D066 




019D2 


1859 




B 


03 








00179700 


OOIBOO 


9130 


COOO 


00000 




1860 


DIO 


TM 


0112) ,X»30» 


Q/ ZONE BITS 






00179800 


001B04 


4750 


01A4 




OIBIO 


1861 




BC 


5,011 


YES, DIVIDE DONE 






00179900 


001B08 


1A60 








1862 




AR 


6,0 


NO, UP REFERENCE TO 


MEXT 


DIGIT 


00180000 


OOIBOA 


lACO 








1863 




AR 


12,0 


* 






00180100 


OOIBOC 


47F0 


D066 




019D2 


1864 




B 


03 








00180200 


OOIBIO 


432B 


0000 




00000 


1865 


Oil 


IC 


2,0(11) 


COMPARE DIVISOR AND 


DIVIDEND SIGNS 


00180300 


001B14 


433C 


0000 




00000 


1866 




IC 


3,0C12) 


* 






00180400 


001B18 


5420 


FOFC 




03F34 


1867 




H 


2,=F»48» 


* 






00180500 


OOIBIC 


5430 


EDEC 




03F34 


1868 




H 


3,=F»48« 


* 






00180600 


001B20 


80 20 


0004 




00004 


1869 




SRDL 


2,4 


* 






00180700 


001324 


4140 


DIDC 




01B48 


1870 




LA 


4,SIMTBL 


* 






00180800 


001B28 


4324 


2000 




00000 


1871 




IC 


2,0(4,2) 


* 






00180900 


001B2C 


4334 


3000 




00000 


1872 




IC 


3,0(4,3) 


:^ 






00181000 


001B30 


9630 


6000 


00000 




1873 




01 


0(6),X»30» 


SET QUOTIENT PLUS 






00181100 


00IB34 


1923 








1874 




CR 


2,3 


0/ ARE SIGNS EQUAL 






00181200 


001B36 


4780 


D1D2 




01B3F 


1875 




BE 


012 


YES, LEAVE QUOTIENT 


PLUS 




00181300 


001B3A 


94EF 


6000 


0000 




1876 




NT 


( 6 ) , X • E F » 


UNEQUAL, SET QUOTIENT NINUS 


00181400 


001B3E 


18B1 








1877 


012 


LR 


11,1 


SET A- AND B-AODRESSES 




00181500 


001B40 


1B80 








1878 




SR 


11,0 


* 






00181600 


001B42 


18C6 








1879 




LR 


12,6 


4^ 






00181700 


001B44 


47F0 


E076 




031BE 


1880 




B 


NXTOP 








00181800 


001B48 


00000100 






1881 


SINTBL 


DC 


X« 00000 100 » 








00181900 



MODIFY ADDRESS 



PAGE 



51 



LOG OBJECT CODE 



ADDKl ADDR? STMT 



SOURCE STATEMENT 



F150CT70 10/28/71 



001B4C 






001B4C 


4990 


EE64 


001B50 


4780 


D018 


001B54 


4990 


Ee66 


001B58 


4780 


0036 


00 IB 50 


4990 


EE68 


001B60 


4770 


F9EE 


001B64 


4I6A 


0001 


001B68 


4580 


FAEO 


001B6C 


18B5 




001B6E 


18CB 




001B70 


4990 


EE68 


001B74 


4780 


D036 


001B78 


416A 


0004 


001B7C 


4580 


FAEO 


001B80 


18C5 




001B82 


4BB0 


EE82 


001B86 


4BC0 


EE82 


001B8A 


4100 


000 F 


001B8E 


4110 


0000 


^Qj^^^ 


432B' 


0003 


001B96 


433C 


0003 


001B9A 


1420 




001B9C 


1430 




001B9E 


4920 


EE6A 


001BA2 


4770 


005C 


001BA6 


1B22 




001BA8 


4930 


EE6A 


OOIBAC 


4770 


D066 


0018B0 


1B33 




001BB2 


1A32 




001BB4 


4930 


EE6C 


001BB8 


47D0 


D07B 


OOIBBC 


4830 


EE6A 


OOIBCO 


4110 


0001 


001BC4 


4230 


D08D 


001BC8 


9470 


C003 


OOIBCC 


910F 


DOBO 


OOIBOO 


4750 


D08C 


001B04 


960A 


0080 


001BD8 


9600 


C003 


OOIBDC 


432B 


0002 


OOIBEO 


433C 


0002 


001BE4 


1420 




001 BE 6 


1430 




OOIBEB 


4920 


EE5A 


OOIBEC 


4770 


DO A 6 


OOIBFO 


1B22 




001BF2 


4930 


EE6A 


001BF6 


4770 


DOBO 


OOIBFA 


1B33 




OOIBFC 


1A32 




OOIBFE 


1A31 




OOICOO 


4110 


0000 


001C04 


4930 


EE6C 





1883 


3FAC 


1884 


01B64 


1885 


03FAE 


1886 


01B82 


1887 


03FB0 


1888 


02B36 


1889 


00001 


1890 


02C28 


1891 




1892 




1893 


03FB0 


1894 


01B82 


1895 


00004 


1896 


02C28 


1897 




1898 


03FCA 


1899 


03FCA 


1900 


OOOOF 


1901 


00000 


1902 


00003 


1903 


00003 


1904 




1905 




1906 


03FB2 


1907 


01BA8 


1908 




1909 


03FB2 


1910 


01BB2 


1911 




1912 




1913 


03FB4 


1914 


01BC4 


1915 


03F82 


1916 


00001 


1917 


01BD9 


1918 


0000 3 


1919 


01BD9 


1920 


01BD8 


1921 


01B09 


1922 


00003 


1923 


00002 


1924 


00002 


1925 




1926 




1927 


3FB2 


1928 


01BF2 


1929 




1930 


03FB2 


1931 


OIBFC 


1932 




1933 




1934 




1935 


00000 


1936 


03FB4 


1937 



rm 



MAI 



HAL4 



MAL4A 



MAL4B 



USING 


NAtl3 


CH 


9»-H«7' 


BE 


MAI 


CH 


9t=H»l* 


BE 


HAL4 


CH 


9,=H»4» 


BNE 


ILEGLN 


LA 


6,1 CIO J 


BAL 


8tCVAD43 


LR 


11,5 


LR 


12,11 


CH 


9,=H»4« 


BE 


MAL4 


LA 


6,4(10) 


BAL 


8,CVAD43 


LR 


12,5 


SH 


11,=H»3» 


SH 


12,=H»3» 


LA 


0,15 


LA 


IfO 


IC 


2,3(11) 


IC 


3,3(12) 


HR 


2,0 


NR 


3,0 


CH 


2,=H«10« 


BNE 


^+6 


SR 


2,2 


CH 


3,=H»10» 


BNE 


*+6 


SR 


3,3 


AR 


3,2 


CH 


3,=H»9« 


BNH 


MAI /, A 


SH 


3,=H»10» 


LA 


Ifl 


STC 


3,MAL4B+1 


NI 


3(12), X»70* 


TH 


NAL4B+1,X»0F» 


BC 


5,HAL4B 


01 


MAL4B+1,X»0A» 


01 


3(12), 


IC 


2,2(11) 


IC 


3,2(12) 


NR 


2,0 


NR 


3,0 


CH 


2,=H«10» 


BNE 


*+6 


SR 


2,2 


CH 


3,==H»10» 


BNE 


*+6 


SR 


3,3 


AR 


3,2 


AR 


3,1 


LA 


IfO 


CH 


3,=H»9» 



UNITS 



TENS 
$ 



00182100 
00182200 
00182300 
00182400 
00182500 
00182600 
00182700 
00182800 
00182900 
00183000 
00183100 
00183200 
00183300 
00183400 
00183500 
00183600 
00183700 
00183800 
00183900 
00184000 
00 184 100 
00184200 
00184300 
00184400 
00184500 
00184600 
00184700 
00184800 
00184900 
00185000 
00185100 
00185200 

00185400 
00185500 
00185600 
00185700 
00185800 
00185900 
00186000 
00186100 
00186200 
00186300 
00186400 
00186500 
00186600 
00186700 
00186800 
00186900 
00187000 
00187100 
00187200 
00187300 
00187400 
00187500 



HODIFY ADDRESS 



PAGE 
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LOC OBJECT CODE 



001C08 


4700 


D0C8 


OOICOC 


4830 


FE6A 


OOICIO 


4110 


0001 


001014 


4230 


DODO 


001C18 


9470 


0002 


ooieic 


910F 


DODO 


001C20 


4750 


DODO 


001C24 


960A 


OODD 


001C28 


9600 


0002 


001C2C 


432B 


000 i 


001C30 


4330 


0001 


001C34 


1420 




001C36 


1430 




00IC3S 


4920 


EE6A 


001C3C 


4770 


D0F6 


001C40 


1B22 




001C42 


4930 


EE6A 


001C46 


4770 


DlOO 


001C4A 


1833 




001C4C 


1A32 




001C4E 


1A31 




001C50 


4110 


0000 


00 1054 


4930 


EE6C 


001C58 


4700 


D118 


001C5C 


4830 


EE6A 


001C60 


4110 


0010 


00 1 C64 


4230 


D12D 


ooic^e 


9470 


0001 


001C6C 


910F 


D12D 


odicfo 


4750 


D12C 


001C74 


960A 


D12D 


001CT8 


9600 


OOOl 


001C7C 


4100 


0030 


001C80 


432B 


0001 


001C84 


4330 


0001 


001CB8 


1420 




OOICBA 


1430 




OOICBC 


1A32 




001C8E 


1A31 




001C90 


4110 


0000 


001C94 


4930 


EE84 


001C98 


47D0 


0158 


001C9C 


4B30 


EE86 


OOICAO 


4110 


0010 


00rCA4 


4230 


D161 


001CA8 


944F 


0001 


00 10 AC 


9600 


0001 


001080 


43 2 B 


0003 


001CB4 


433C 


0003 


0010B8 


1420 




OOICBA 


1430 




OOICBC 


1A32 




OOICBE 


1A31 




OOICCO 


4930 


EE84 


001CC4 


47D0 


0180 



ADDRl 


A0DR2 


STHT 


SOUR 


,CE STATEMENT 




01014 


1938 




BNH 


HAL4C 




03FB2 


1939 




SH 


3,=H«10» 




00001 


1940 




LA 


Irl 




01029 


1941 


NAL4C 


STO 


3tMAL40-M 


00002 




1942 




HI 


2{12),X*70» 


01029 




1943 




TM 


HAL40+1,X«0F» 




01028 


1944 




BO 


5,MAL4D 


01029 




1945 




01 


MAL4D+1,X»0A« 


00002 




1946 


MAL4D 


01 


2(12), 




00001 


1947 




10 


2,1(11 ) 




00001 


1948 




10 


3,1(12) 






1949 




MR 


2,0 






1950 




NR 


3,0 




03FB2 


1951 




OH 


2,=H»10« 




01042 


195 2 




BNE 


*+6 






1953 




SR 


2,2 




03FB2 


1954 




OH 


3,=H»10' 




0iC4C 


1955 




BNE 


*^+6 






1956 




SR 


3,3 






1957 




AR 


3,2 






1958 




AR 


3,1 




00000 


1959 




LA 


1,0 




03FB4 


1960 




OH 


3,=H«9» 




01064 


1961 




BMH 


MAL4E 




03FB2 


1962 




SH 


3,=H»10» 




00010 


1963 




LA 


1,16 




01079 


1964 


NAL4E 


STO 


3,MAL4F+i 


00001 




1965 




HI 


1(12),X»70» 


01C79 




1966 




TH 


MAL4F+1,X»0F» 




01078 


1967 




BO 


5,HAL4F 


01079 




1968 




01 


MAL4F+1,X«0A» 


00001 




1969 


NAL4F 


01 


1(12), 




00030 


1970 




LA 


0,48 




00001 


1971 




10 


2,1(11) 




00001 


1972 




10 


3,1(12) 






1973 




NR 


2,0 






1974 




NR 


3,0 






1975 




AR 


3,2 






1976 




AR 


3,1 




00000 


1977 




LA 


1,0 




03F0C 


1978 




OH 


3,=H»48* 




010A4 


1979 




BNH 


HAL4G 




03FCE 


1980 




SH 


3,=H»64» 




00010 


1981 




LA 


If 16 




010 AD 


1982 


MAL4G 


STO 


3,MAL4H+1 


00001 




1983 




NI 


1(12),X»4F« 


00001 




1984 


MAL4H 


01 


1 ( 1 2 ) , 




00003 


1985 




10 


2,3(11) 




00003 


1986 




10 


3,3(12) 






1987 




NR 


2,0 






1988 




MR 


3,0 






1989 




AR 


3,2 






1990 




AR 


3,1 




03FC0 


1991 




OH 


3,=H»48« 




OICCO 


1992 




BNH 


HAL4I 



SAVE B FLO INDEX AND WORD HARK BITS 



HUNDREDS 
* 



* 



ft 

FOUR THOUSANDS 



F1500T70 10/28/71 



00187600 
00187700 
00187800 
00187900 
00188000 
00188100 
00188200 
00188300 
00188400 
00188500 
00188600 
00188700 
00188800 
00188900 
00189000 
00189100 
00189200 
00189300 
00189400 
00189500 
00189600 
00189700 
00189800 
00189900 
00190000 
00190100 
00190200 
00190300 
00190400 
00190500 
00190600 
00190700 



00190900 
00191000 
00191100 
00191200 
00191300 
00191400 
00191500 
00191600 
00191700 
00191800 
00191900 
00192000 
00192100 
00192200 
00192300 
00192400 
00192500 
00192600 
00192700 
00192800 
00192900 
00193000 
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LOC 


OBJECT CODE 


ADDRl 


ADDK2 


STMT 


SOURCE STAT 


EHEMT 




00 ICC 8 


4B30 EF86 




OBFCE 


1993 




SH 


3t=H»64» 


* 


OOICCC 


4?30 D1.89 




01 CD 5 


1994 


HAL4I 


STC 


3,HAL4J-i-l 


* 


OOICOO 


944F C003 


00003 




1995 




HI 


3C12)tX»4F» 


* 


001CD4 


9600 C003 


00003 




1996 


N4L4J 


01 


3Cl?)tO 


* 


001CD8 


47F0 E076 




031BE 


1997 




B 


NXTOP 





F150CT70 10/28/71 

00193100 
00193200 
00193300 
00193400 
00193500 





STORF A-AOORESS 


. REGISTER 










LOC 


OBJECT CODE 


ADDRl 


AODR? 


STMT 


SOUR 


XE STATE 


MENT 


OOICDC 












1999 




USING 


SAR, 13 


OOICOC 


4990 


EE68 






03FB0 


2000 


SAR 


CH 


9f=H»4* 


OOICEO 


4770 


F9EE 






02B36 


2001 




BNE 


ILEGLN 


001CE4 


18CB 










2002 




LR 


12,11 


001CE6 


4 16 A 


0001 






00001 


2003 




LA 


6,1(10) 


00 ICE A 


4580 


FAEO 






02C28 


2004 




BAL 


8,CVAD43 


OOICEE 


18B5 










2005 




LR 


11»5 


OOICFO 


50C0 


FB60 






02CA8 


2006 




ST 


12,ADR360 


001CF4 


4380 


FB6A 






02CB2 


2007 




BAL 


8,CVAD34 


001CF8 


4BB0 


Et82 






03FCA 


2008 




SH 


11,=H»3« 


OOICFC 


D402 


BOOI 


EE9B 


00001 


03FE3 


2009 




NC 


H3,in , = X»404040» 


001D02 


D602 


BOOl 


FB64 


00001 


02CAC 


2010 




oc 


1(3,11 },ADR140 


001 DOS 


47F0 


E076 






031B.E 


2011 




B 


MXTOP 
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00193700 
00193800 
00193900 
00194000 
00194100 
00194200 
00194300 
00194400 
00194500 
00194600 
00194700 
00194800 
00194900 





STORE 


: B-AC 


IDRESS 


. REGISTER 










LOC 


OBJECT CODE 


ADDRl 


ADDR2 


STMT 


SOURCE STATE^ 


NENT 


OOIDOC 












2012 




USING 


SBRtl3 


OOIDOC 


4990 


EE68 






03FB0 


2014 


SBR 


CH 


9,=H«4» 


001010 


4780 


0022 






01D2E 


2015 




BE 


SBRL4 


001014 


4990 


EE66 






03FAE 


2016 




CH 


9,=H*1» 


001D18 


4780 


0034 






01040 


2017 




BE 


SBRLl 


001 Die 


4990 


EE64 






03FAC 


2018 




CH 


9,=H«7» 


001D20 


4770 


F9EE 






02B36 


2019 




BME 


ILEGLN 


001024 


416A 


0004 






00004 


2020 




LA 


6,4(10) 


001D28 


4580 


FAEO 






02C28 


2021 




BAL 


8,CVAD43 


00102C 


18C5 










2022 




LR 


12,5 


001D2E 


41 6A 


0001 






00001 


2023 


SBRL4 


LA 


6tl{10) 


001032 


4580 


FAEO 






02C28 


2024 




BAL 


8,C^A043 


001036 


18 B 5 










2025 




LR 


11,5 


001D38 


50C0 


FB60 






02CA8 


2026 




ST 


12,ADR360 


00103C 


4580 


FB6A 






02CB2 


2027 




BAL 


B,CVA034 


001D40 


4BB0 


EE82 






03FCA 


2028 


SBRLl 


SH 


11,=H«3« 


001044 


04 02 


BOOl 


EF9B 


0000 1 


03FE3 


2029 




NC 


1{3,11),=X»404040» 


001D4A 


0602 


BOOl 


FB64 


00001 


02CAC 


2030 




DC 


1(3,11 ),ADR140 


001050 


47F0 


E076 






031BE 


2031 




B 


NXTOP 
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00195100 
00195200 
00195300 
00195400 
00195500 
00195600 
00195700 
00195800 
00195900 
00196000 
00196100 
00196200 
00196300 
00196400 
00196500 
00196600 
00196700 
00196800 
00196900 





HOVE 


CHARACTERS TO R( 


:d nark 


OR GF 


{QUP HARK. 


- 1^0^ 


RD HARK 
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LOG 


OBJECT CODE 


ADDR.1 


ADDR2 


ST«T 


SOURCE 


STATEMENT 




F150CT70 


10/28/71 


001D54 












2033 




USING 


MCMa3 






00197100 


001D54 


4990 


EE66 






03FAE 


2034 


HCH 


CH 


9,=H*1» 






00197200 


001058 


4780 


0024 






01D78 


2035 




B! 


~ 


MCMLl 






00197300 


001D5C 


4990 


EF64 






03FAC 


2036 




CH 


9 , =H • 7 » 






00197400 


001060 


4770 


F9EE 






023 36 


2037 




BNE 


ILEGLN 






00197500 


001064 


41 6 A 


0001 






00001 


2038 




LA 


6tl(10) 






00197600 


001D68 


4580 


FAEO 






02C28 


2039 




BAL 


8,CVAD43 






00197700 


001D6C 


18B5 










2040 




LR 


11,5 






00197800 


001D6E 


416A 


0004 






00004 


2041 




LA 


6,4(10) 






00197900 


001 07 2 


4580 


FAEO 






02C28 


2042 




BAL 


8,CVAD43 






00198000 


001D76 


18C5 










2043 




LR 


12,5 






00198100 


001D78 


940F 


D06F 




01DC3 




2044 


MCMLl 




NI 


HCHSW+1,K»0F« 






00198200 


OOIDTC 


186B 










2045 






LR 


6,11 


A-FIELD PTR 




00198300 


00107E 


ODFF 


6000 


01 A2 


00000 


01EF6 


2046 


MCHSCAN 


TRT 


0(256,6) tTRTG.HWRH 


SCAN FOR GNWM - RM - RMWH 




00198400 


001084 


4770 


D03C 






01090 


2047 






BNZ 


NCHHIT 






00198500 


001088 


4166 


0100 






00100 


2048 






LA 


6,256(6) 






00198600 


001D8C 


47F0 


D02A 






01D7E 


2049 






B 


HCHSCAN 






00198700 


00 1090 


IBIB 










2050 


HCMHIT 




SR 


1,11 


COMPUTE RECORD LENGTH 




00198800 


001092 


4111 


0001 






00001 


2051 






LA 


1,1(1) 


BUMP FOR TERH CHAR 




00198900 


001096 


4910 


EE7A 






03FC2 


2052 






CH 


1,=H»256» 


TOTAL LENGTH 6T 256 




00199000 


00 109 A 


47D0 


0054 






0IDA8 


2053 






BNH 


HCMDECR 


NO 




00199100 


00109E 


96 FO 


006 F 




01DC3 




2054 






01 


MCHSW+1,X*F0» 


YES ~ SET SW FOR MULTIPLE f^ 


iOVES 


00199200 


001DA2 


1831 










2055 






LR 


3,1 






00199300 


001DA4 


4110 


0100 






00100 


2056 


MCH256 




LA 


1,256 






00199400 


00IDA8 


0610 










2057 


hcmoech 


i 


BCTR 


1,0 


DECREMENT FOR EX INSTRUCTIONS 


00199500 


OOIDAA 


4410 


0090 






01DE4 


2058 






EX 


1,MCMCHM0V 


MOVE RECORD TO WORK AREA 




00199600 


OOIDAE 


4410 


008A 






OlDDE 


2059 






EX 


1,HCMCHCLR 


CLEAR RECEIVING AREA EXCEPl 


■" WM 


00199700 


001DB2 


4410 


0096 






OlOEA 


2060 






EX 


1,HC^^WHCLR 


ELIMINATE WORD HARKS IN WORK AREA 


00199800 


001DB6 


44 10 


D09C 






OlDFO 


2061 






EX 


1,HCHCH0RC 


OR DATA BITS (BA8421) INTO 


REC AREA 


00199900 


OOIDBA 


4111 


0001 






00001 


2062 






LA 


1,1(1) 






00200000 


OOIOBF 


lABl 










2063 






AR 


11,1 






00200100 


OOIDCO 


lACl 










2064 






AR 


12,1 






00200200 


001002 


4700 


DO 7 6 






OlDCA 


2065 


MCHSW 




NOP 


MCMBUMP 


SW SET IF RECORD GT 256 BYTES 


00200300 


001DC6 


47F0 


E076 






031BE 


2066 






B 


NXTOP 


TO NEXT 1401 INSTRUCTION 




00200400 


OOIDCA 


1B31 










2067 


MCMBUMF 


) 


SR 


3,1 


COMPUTE BYTES REMAINING 




00200500 


OOIDCC 


4930 


EE7A 






03FC2 


2068 






CH 


3,=H»256» 


Q / BYTES REMAINING GT 256 




00200600 


OOIDOO 


4720 


0050 






01DA4 


2069 






BH 


MCM256 


YES 




00200700 


001DD4 


1813 










2070 






LR 


1.3 






00200800 


001D06 


940 F 


D06F 




1 DC 3 




2071 






NI 


HCMSW+1,X«0F» 


TURN OFF SWITCH 




00200900 


OOIDDA 


47F0 


DO 5 4 






01DA8 


2072 
2073 


i^ 




B 


HCMDECR 


MOVE REMAINING BYTES 




00201000 
00201100 


OOIDDF 


D400 


COOO 


e2C3 


00000 


0340B 


2074 


MCHCHCLR 


NC 


0(0,12},^M256 






00201200 


001DE4 


D200 


D0A2 


BOOO 


01DF6 


00000 


2075 


MCMCHHOV 


MVC 


W0RK256(0),0( 11) 






00201300 


OOIDEA 


D400 


D0A2 


D2A2 


01DF6 


01FF6 


2076 


HCHyMCLR 


NC 


h?0RK256{0),STRIPWM 






00201400 


OOIDFO 


D600 


COOO 


D0A2 


00000 


01DF6 


2077 


>1CNCH0RC 


oc 


0(0,12),WORK256 






00201500 














2078 


* 












00201600 


001DF6 


4040404040404040 




2079 


V^ORK256 


> 


DC 


CL256* • 






00201700 


001EF6 


0000000000000000 




2080 


TRTGMNRN 


DC 


26X»00« 


MCM SCAN TABLE 




00201800 


00 IF 10 


lA 










2081 






DC 


X»1A» 


RECORD MARK - A8 2 




00201900 


00 IF 11 


0000000000000000 




2082 






DC 


63X«00« 






00202000 


001F50 


5 A 










2083 






OC 


X»5A» 


RECORD MARK WORD MARK - M A8 2 


00202100 


00IF51 


0000000000000000 




2064 






DC 


36X»00* 


1^ 




00202200 


00IF75 


7F 










2 08 5 






DC 


X«7F» 


GROUP MARK WORD MARK - MBA8421 


00202300 


00IF76 


0000000000000000 




2086 






DC 


128X»00» 






00202400 


001FF6 


3F3F3F3F3F 


■3F3F' 


'if 




2087 


STRIPV^f^ 


5 
< 


DC 


256X»3F» 






00202500 



BRmCH IF BIT FQUAL 
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LOG OBJECT CODE 



AODRI ADDK2 STMT 



SOURCE STATEMENT 
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0020F6 
0020F6 
0020FA 
00?OFE 
002102 
002106 
00210A 
00210E 
002110 
002114 
002118 
00211 A 
002120 
002124 
002128 
00212E 
002134 
002138 
002 13 A 
00213E 



4990 
4780 
4990 
4770 
416A 
4580 
18B5 
416A 
4580 
18C5 
D200 
94 BF 
4BC0 
0200 
0400 
4780 
18AB 
4190 
47F0 



C u C' O 

002E 
EE70 
F9EE 
0001 
FAEO 

0004 
FaEO 

ElAO 

ElAO 
EE66 

FB68 
FB68 
E076 

0000 

E076 



A007 



El AD 
COOl 



032F5 
032F5 

02C50 
02CB0 



03FAE 
02124 

03FB8 
02B36 
00001 
02C28 

00004 
02C28 

00007 

03FAE 

032F5 
00001 
031BE 

00000 

031BE 



2089 
2090 
2091 
2092 
2093 
2094 
2095 
2096 
2097 
2098 
2099 
2100 
2101 
2102 
2103 
2104 
2105 
2106 
2107 
2108 



BBE 



BBELl 



USIMG 


BBE, 13 


CH 


9t=H»l» 


BE 


B8EL1 


CH 


9,=H»8 • 


BNE 


ILEGLN 


LA 


6,1(10) 


BAL 


8fCVAD43 


LR 


11»5 


LA 


6,4(10) 


BAL 


8,CVAD43 


LR 


12,5 


NVC 


DCHARC1),7{ 10) 


HI 


OCHAR,X»BF» 


SH 


12,=^H«1« 


NVC 


TEMPI, DCHAR 


NC 


TEMP1C1),1{12) 


BZ 


NXTOP 


LR 


lOrll 


LA 


9,0 


B 


NXTOP 



00202700 
00202800 
00202900 
00203000 
00203100 
00203200 
00203300 
00203400 
00203500 
00203600 
00203700 
00203800 
00203900 
00204000 
00204100 
00204200 
00204300 
00204400 
00204500 
00204600 
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LOG OBJECT CODE 



ADDKl A DOR 2 ST^IT 



SOURCE STATEMENT 
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00214 2 

002142 90EC DOOC 

002146 05F0 
002148 58E0 F088 
00214C 50D0 E45C 
002150 90EF E4A0 
002154 41D0 E458 
002158 4160 E4a0 
00215C 5811 0000 
002160 4821 0000 
002164 1222 
002166 4780 F038 
002 16A 0620 
0021 6C 58 30 EE 18 
002170 1B32 
002172 4420 
002176 47F0 
00217A D200 
002180 



F032 
F038 

3000 1002 



002180 
002130 
002184 
002188 
00218C 
00218E 
002192 
002194 
002198 

00219C 
00219C 
0021A0 
0021A4 
0021A8 
0021AA 
0021AE 
0021 B2 
0021B8 
0021BE 
0021C4 
0021CA 
0021CE 
0021D0 



4510 F040 
00003E94 

5801 0000 

OAOA 

9BEF 

1871 

5AI0 

5010 



6000 

EDFC 
ElBC 



4510 F05C 

00004650 

5801 0000 

OAOA 

98EF 

5010 

0202 

D202 

D202 

D700 

47F0 

0000 

0000 3 14 B 



6000 
EICO 

E4F9 
E519 
£509 
70C9 

FIDB 



ElCl 
ElCl 
ElCl 

7000 



OOOOC 

02100 

035A4 
035Ea 
035A0 
3 5 F 8 
00000 
00000 

02180 

03F60 

0217A 

02180 
00000 00002 



02188 

00000 

00000 

03F44 
03304 

021A4 

00000 

00000 
03308 
03309 
03309 
03309 
00000 
02320 



03641 

03661 
03651 
000C9 



002104 D731 F314 
0021DA D207 FOBF 
002 lEO 90DF E4A0 
0021E4 4160 ^4A0 
0021E8 41D0 B458 
0021EC 91FF FIDO 
002 IFO 4710 FOE A 



F314 

E2BB 



0245C 
0220 7 



02318 



0245C 
03403 
035E8 

035ES 
035A0 

02242 



MOVEPARM 
GETCORE 



2110 BEGIN 

2 111 + BEG IN 

2112 + 
2113 
2114 

2115 SETBSl 

2116 

2117 

2118 

2119 

2120 

2121 

2122 

2123 

2124 

2125 

2126 

2127 

2128 

2129 

2130 

2131 

2132 + 

2133 + 
2134+ 
2135 + 
2136+ 
2137 
2138 
2139 
2140 
2141 
y 1 A*? 4. 

2143+ 

2144 + 

2145+ 

2146+ 

2147 

2148 

2149 

2150 

2151 

2152 

2153 



SAVE 

DS 

STN 

ENTRY 

BALR 

L 

ST 

STN 

LA 

LA 

L 

LH 

LTR 

BZ 

BCTR 

L 

SR 

EX 

B 

MVC 

EOU 

GETHA 

CNOP 

BAL 

DC 

L 

SVC 

LH 

LR 

A 

ST 

GETMA 
rhtno 

BAL 

DC 

L 

SVC 

LM 

ST 

.^VC 

HVC 

MVC 

XC 



{14,12} 

OH 
14,12,12C13} 

BEGIN! 

15,0 

14tBASE2 

13,SAVEAREA+4 

14,15,HACREGSV 

13,SAVEAREA 

6tHACREGSV 

1,0(1> 

2,0(1) 

2,2 

GETCORE 

2,0 

3,=-A(E0JIAR + 5) 

3,2 

2,M0VEPARN 

GETCORE 

0(0, 3), 2C I) 

IN f<,LV=16020 
0,4 

l,*+8 BRANCH AROUND 
AC 16020 J LENGTH 
0,0(1,0) LOAD LENGTH 
10 ISSUE GETHAIN SVC 
14,15,0(6) 
7,1 * 

1,=F*15999« 
1,SIHL1MIT 

IN R,LV=i8000 



SAVE CONTROL PROGRAMS REGISTERS 



SAVE REGISTERS 

ENTRY POINT 
BASE REGISTERS 



TAB 



LOAD 

* 

SAVE 



CONTROL PROGRAHS REGISTER 13 



GET PARH FIELD POINTER TAB 
GET PARM FIELD LENGTH TAB 
IS PARH FIELD LENGTH ZERO? TAB 
YES, NO PAR?^ FIELD PRESENT TAB 



PARM LENGTH LESS ONE 

LOV^ ORDER OF EOJIAR 



TAB 
TAB 



NO, EOJIAR - PARM LENGTH - 1 TAB 
MOVE PARM TO EOJIAR TAB 
TO CONTINUE INIT TAB 

HOVE PARM TO EOJIAR TAB 
CONTINUE WITH INIT TAB 
GET CORE FOR 1401 SIMULATED CORE 



LENGTH 



STOR 
GET C 



2154 flASE2 DC 



l,*+8 BRANCH AROUND LE 

AdSOOO) LENGTH 

0,0( 1,0) LOAD LENGTH 

10 ISSUE GETMAIN SVC 

14,15,0(6) 

1, TAPE ARE A * 

WTCCW2+1 ( 3 ) ,TAPEAREA+1 

RTCCWl+lt3) ,TAPEAREA+1 

LDTCCW1+1(3),TAPEAREA+ 

$IMC0R+201,SIHC0R 

BGNl 

A(SETBSl+4096) 



E UPPER LIMIT OF 1401 CORE 
ORE FOR TAPE I/O BUFFER 
NGTH 



2155 
2156 
2157 
2158 
2159 
2160 
2161 
2162 
2163 



WTORTN 



OKWTOR 



XC 

MVC 
STM 

LA 
LA 
TM 
BO 



R0STIN,ROSTIN 
0KWT0R+27(8),J08NAME 
13,15,MACREGSV SAVE 

6,MACREGSV SAVE 

13,SAVEAREA GIVE 

MOD,X'FF« 
CHGRDCD 



MOVE JOBNAME TO WTOR 
MACRO REGS 
ADDRESS TO XR 
OS OUR SAVE AREA 



00204800 



00204810 
00204900 
00205000 
00205100 
00205200 
00205300 
00205400 
00205410 
00205420 
00205430 
00205440 
00205450 
00205455 
00205460 
00205470 
00205475 
00205480 
00205485 
00205500 



00205600 
00205700 
00205800 
00205900 
00206000 



WTOR 'OK 



•,RQSTIN,50,WTECB 



00206100 
00206200 
00206300 
00206400 
00206500 
00206600 
00206700 

00206800 
00206900 
00207000 
00207100 
00207200 
00207300 
00207400 
00207500 
00207600 
00207700 
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LOC OBJECT CODE 



ADDRl A0DR2 STMT 



SOURCE STaTENENT 



F150CT70 10/28/71 



0021F4 
0021F4 
0021F8 
0021F9 
0021FC 
002200 
002202 
002204 
0022 OF 
002210 
002210 
002212 
002216 
00221 A 
0022 1 E 
002222 
002226 

00222A 
00222E 
002232 
002234 
002238 
0022 3 E 
002242 
002248 
00224C 
002250 
002254 
00225A 
00225E 
002262 
002266 
00226A 
0022 6 E 
002272 
002276 
00227C 
002280 
002284 
002288 
00228C 
002290 
002294 
00229A 
00229E 

0022A2 
0022A6 
0022AA 
0022 A E 
002230 
0022 B4 
0022BA 
0022BE 



4510 F0C8 

32 

00245C 

000023 IC 

OOOF 

0000 

D6D2404040404040 



0A23 
980F 
90DF 
91 FF 
4710 
4160 
41D0 

4110 

4100 

OAOl 

98DF 

D703 

47F0 

0503 

4770 

957D 

4770 

0741 

5830 

5810 

4120 
oK-rn 

9540 
4780 
D200 
4111 
4133 
4620 
47F0 
90DF 
5030 
D203 
4160 
4100 

4110 

4100 
58F0 
05EF 
9 8 OF 
D504 
4770 
5830 



6000 
E4A0 

FIDO 
F25A 
E4A0 

E458 

F104 
0001 

6000 
F1D4 
F25A 
EICA 
F1B4 
E1D3 
F17E 
FEIO 
EE20 
EE24 
0046 
1000 
F144 
1 000 
F134 
3000 
0001 
0001 
FllE 
F17E 
E4A0 
FEOe 
FEOC 
E^AO 
E458 

E694 
EICA 

1030 

6000 
EICA 
F1B4 
FE08 



00000 
035E8 

02318 

023A2 
035E8 
035A0 

0231C 

00001 

00000 
F1D4 0231C 0231C 

U <_ -/ M c 

EEIC 03312 03F64 
022FC 
33 IB 

022C6 

FEIO 02F58 02F5B 

03F68 

03F6C 

00046 

00000 

0228C 
00000 

0227C 

1000 00000 00000 
00001 
00001 
02266 

035E8 
02F50 

EE20 02F54 03F68 
035E8 
035AO 

037DC 
03312 
00030 

00000 

EE9E 03312 03FE6 

022 FC 

02F50 



IHB0029 
IHB0028; 

CHGA 
TESTA 



TEST A A 
TESTAA 



2164 + 

2165+ 

2166+ 

2167+ 

2168+ 

2169+ 

2170+ 

2171 + 

2172+ 

2173+ 

2174 + 

2175 

2176 

2177 

217 8 

2179 

2180 

2181 

2182+ 

2183+ 

2184 + 

2185 

2186 

2187 

2188 CHGRDCO 

2189 

2190 

2191 

2192 

2193 

2194 DGCCIO 

2195 

o 1 Q^ nnrrc, 

C JL ^ ^r i-f v:f W V* -^ 

2197 

2198 

2199 

2200 

2201 0GCC4 

2202 

2203 

2204 

2205 DGCC3 

2206 

2207 

2208 

2209 

2210 

2211 + 

2212 + 
2213+ 
2214 + 
2215 
2216 
2217 
2218 



CHOP 

BAL 

DC 

DC 

DC 

DC 

DC 

DC 

EQU 

DS 

SVC 

LH 

Sin 

IH 

RO 

LA 

LA 

WAIT 

LA 

LA 

SVC 

LM 

XC 

B 

CLC 

BNE 

CLI 

BNE 

XC 

L 

L 



0t4 

lfIKBu028A BRANCH AROUND LIST 

AL1C50) REPLY LENGTH 

AL3(R.0STIM) REPLY ADDRESS 

ACWTECB) ECB ADDRESS 

AL2( IHB0029-*J MESSAGE LENGTH 

B» 0000000000000000* MCSFLAGS FIELD 

C»OK • MESSAGE 

OH 

35 ISSUE WTOR SVC 



RESTORE MACRO REGISTERS 
SAVE NACRO REG 



SAVE ADDRESS TO XR 



I3,15t0(6j 

13,15,MACREGSV 
MOD,X»FF» 
TRANS 

6,WACREGSV 
13,SAVEAREA 

1,ECB-WTECB WAIT FOR RESPONSE 
1,WTECB LOAD PARAMETER REG 1 
0,1(0,0) LOAD PARAHETER REG 
1 LINK TO i^AIT ROUTINE 
13,15,0(6) RESTORE NACRO REG 
WTECB,WTECB CLEAR ECB 
TRANS 

TMPARAi4) ,=C»CCTL« 
DGCC7 

TNPARA+9,X»7D» 
DGCC2 

CARTAB(66) , CARTAS 
3,=A(CARTAB) 
1,=^A(TMPARA+10) 
LA 2,70 

rtT ntt\ vt -?n t 

BE DGCC3 

CLI 0(1), C» • 

BE DGCC4 

MVC 0(1, 3), 0(1) 

LA 1,1(1) 

LA 3,1(3) 

BCT 2,0GCC5 

B DGCC2 
STM 13,15,MACREGSV 

ST 3,DGEND 

MVC DGCUR,=A( CARTAS) 

LA 6,MACREGSV 

LA 13,SAVEAREA 

GET CARD,TMPARA 

LA 1,CARD LOAD PARAMETER REG 1 

LA 0,TMPARA LOAD PARAMETER REG 

L 15,48(0,1) LOAD GET ROUTINE ADDR. 
BALR 14,15 LINK TO GET ROUTINF 

LH 13,15,0(6) 

CLC TMPARA(5) ,=C»CCTL2« 

BNE DGCC7 

L 3,D6END 



00207800 
00207900 
00208000 
00208100 
00208200 
00208300 
00208400 



00208500 
00208600 
00208700 
00208800 
00208900 
00209000 
00209100 
00209200 
00209300 
00209400 
00209500 

nn o /% r\ /: r\r\ 

00209700 
00209800 
00209900 
00210000 
00210100 
00210200 
00210300 
00210400 
00210500 
00210600 
00210700 
00210600 
00210900 
00211000 



00211100 
00211200 
00211300 
00211400 
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LOC OBJECT CDDE 



ADDRl aDDkZ stmt 



SOURCE STATEMEf^T 



0022C2 
0022 C6 
0022CA 
0022CE 

002202 
002204 
0022DB 
0022DA 
00220C 
0022 F6 
0022F6 
0022F6 
0022F8 
0022FC 
0022FC 

002302 
002306 
00 2 30 A 
00230E 
002310 
002314 
002318 
002319 
00231C 
002320 
002324 
002328 

00232C 
00232C 

\^ '^ tr^ ^ -Jf K.J^ 

002331 
002334 
002336 
00233A 
00233E 
002342 
002346 
00234A 
00234E 

002352 
002356 
00235A 
00235E 
002360 
002364 
002368 
00236C 
002372 
002376 
00237A 
00237E 



47 FO 
90DF 
4160 
41D0 



F116 
E4A0 

E4A0 
E458 



0700 

4510 FIAE 
00 IE 

0000 

C905E5C103C9C440 



0225E 
035E8 
035E8 
035A0 



022F6 



0A23 
98 OF 



6000 



00000 



0231 F314 EICA 0245C 03312 



E694 
EICA 

1030 

6000 
FOCA 



4110 
4100 

58F0 

05EF 

980F 

47F0 

FF 

000000 

00000000 

90DF ■E4A0 

4160 E4A0 

41D0 E458 



4510 

an 

00370C 

0A13 
98DF 
92,8B 
4580 
4180 
9 OOF 
4160 
41 DO 



FlEC 



6000 
£300 
FC9C 
F232 
E4A0 
E4A0 
E45 8 



4110 

4100 
58F0 
05EF 
98DF 
4110 
5820 
D763 
4122 
4610 
5810 
IA17 



E694 
EICA 
1030 

6000 
004C 

EICO 
2000 
0064 
F224 
EE28 



03518 



■pnjr\f>, '^non-fi 



037DC 
03312 

00030 

00000 
02212 



035 E 8 
035E8 
035A0 



02334 



00000 

02DE4 
0237A 
035E8 
035E8 
035A0 

037DC 

03312 
00030 

00000 
0004C 

03308 
00000 
00064 
0236C 
03F70 



2219 B 

2220 DGCC2 STM 

2221 LA 

2222 LA 
222 3 WTO 
2224+ CNOP 
2225+ BAL 
2226+ DC 
2227+ DC 
2228+ DC 
2229+IHB0034 EQU 
2230+IHB0034A DS 
2231+ SVC 

2232 LM 

2233 DGCC7 EQU 

2234 MVC 

2235 GET 
2236+ LA 
2237+ LA 
2238+ L 
2239+ BALR 

2240 LM 

2241 B 

2242 HDD DC 

2243 WTECB DC 

2244 BGNl STM 

2245 LA 

2246 LA 

2247 OPEN 

2248+ CNOP 

2249+ BAL 

->->«:: Ax nr 

C t- -.» V-f « U W/ 

2251+ DC 

2252+ SVC 

2253 LH 

2254 MVl 

2255 BAL 

2256 LA 

2257 STH 

2258 LA 

2259 LA 

2260 GET 
2261+ LA 
2262+ LA 
2263+ L 
2264+ BALR 

2265 LM 

2266 LA 

2267 L 

2268 CLEAR XC 

2269 LA 

2270 BCT 

2271 BGN2 L 

2272 AR 



DGCCIO 

13,15,HACREGSV 

6,MACREGSV 

13,SAVEAREA 

•INVALID CCTL CARD, RESUBMIT* 

0,4 

1,IHB0034A BRANCH AROUND HESSAGE 

AL2{IHB0034-*) HESSAGE LENGTH 

B» 0000000000000000* MCSFLAGS FIELD 

C» INVALID CCTL CARD , RESUBMIT • HESSAGE 

OH 

35 ISSUE SVC 

13,15,0(6) 

RQSTIN,TMPARA 

CARD,THPARA 

IfCARD LOAD PARAMETER REG 1 

OfTMPARA LOAD PARAMETER REG 

15,48(0,1) LOAD GET ROUTINE ADOR. 

14,15 LINK TO GET ROUTINE 

13,15,0(6) 

CHGA 

X'FF' 



F150CT70 10/28/71 

00211500 
00211600 
00211700 
00211800 
00211900 



F»0» 

13,15,MACREGSV 

6,MACREGSV 

13,SAVEAREA 

(CARD) 

0,4 

l,*+8 LOAD REGl 



W 



AL3{CARD) DCS ADD 
19 ISSUE OPEN SVC 
13,15,0(6) R 
PRNTBUFF,X«8B» 
8,WRITE 
8,BGN2 

13,15,MACREGSV S 
6,MACREGSV S 
13,SAVEAREA G 
CARD,TMPARA R 
1,CARD LOAD PARAM 
0,TMPARA LOAD PAR 
15,48(0,1) LOAD G 
14,15 LINK TO GET 
13,15,0(6) R 
1,76 C 

2,TAPEAREA 



(10 



u , t. 



),0(2) 



2,100(2) 
1, CLEAR 
l,^Fn6010* 
lf7 



A 



AVE MACRO REGS 
AVE ADDRESS TO XR 
IVE OS OUR SAVE AREA 

OPEN CARD INPUT OCB ONLY TAB 

/LIST ADDR, 

VT ir 

RESS 

ESTORE MACRO REGISTERS 

RESTORE PRINT FORM IMMEDIATELY 
* 

AVE MACRO REGS 

AVE ADDRESS TO XR 

IVE OS OUR SAVE AREA 

EAD CARD 

ETER REG 1 

AMETER REG 

ET ROUTINE ADDR. 

ROUTINE 
ESTORE MACRO REGISTERS 
LEAR 

TAPE 
REA 



00212000 
00212100 
00212200 
00212300 



00212400 
00212500 
00212600 

00212700 
00212800 
00212900 
00213000 
00213100 



00213200 
00213300 
00213400 
00213500 
00213600 
00213700 
00213800 
00213900 



00214000 
00214100 
00214200 

00214300 
00214400 
00214500 
00214600 
00214700 
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LOC OBJECT CODE 



002 380 
002384 
002388 
0023BC 
002390 
002394 
002398 
00239E 
0023A2 
0023a8 
0023AE 
0023B2 
002388 
0023BC 
0023C2 
0023C6 
0023CC 
002300 
002306 
00230A 
0O23E0 
0023E4 
0023EA 
0023EE 
0023F4 
0023F8 
0023FE 
002402 
002408 
00240C 
002412 
002416 
00241C 
002420 
002426 
00242A 
00242E 

002432 
002434 
002438 
002439 
00243C 
002440 
002442 
002444 
002451 
002452 
002452 
002454 
00245B 
00245C 



927F 

4180 
5888 
5B88 
5888 
58BB 
0207 
47F0 
DC3i 
D502 
4780 
D502 
4780 
0502 
4780 
D502 
4780 
D502 
4780 
D502 
4780 
D502 
4780 
0502 
4780 
D502 
4780 
D502 
4780 
D502 
4780 
0502 
4780 
D731 
90 DF 
4160 
41D0 

0700 

4510 

-3 •> 



1000 
0010 
0000 
0000 
0004 

000c 

e2BB 
F08C 
F314 
F314 
F4E4 
F314 
F346 
F314 
F434 
F314 
F416 
F314 
F36 8 
F3I4 
F56E 
F314 
F58C 
F314 
F74A 
F314 
F7CA 
F314 
F934 
F314 
F810 
F314 
F84E 
F314 
E4A0 
E4A0 
E45S 



F30A 



ADORl 



A A Ann 



DDR? STMT 



SOURCE STATEMENT 



F150CT70 10/28/71 



8000 03403 



EC 04 
EE A3 

EEA6 
EEA9 

EEAC 
EEAF 
EE.B2 
EEB5 
EEB8 
EEBB 
E E B E 
EECl 
EEC4 
F314 



245C 
0245C 

0245C 

0245C 

0245C 

0245C 

0245C 

Q2A5C 

0245C 

0245C 

0245C 

0245 C 

0245C 

0245C 



00245C 

0000231C 

0011 

0000 

C903D3C5C7C1D340 



0A23 

98DF 
47F0 



6000 

F0E2 



OOOIO 
00000 

00000 
00004 

ooooc 

00000 
02104 
03E1C 
03FEB 
0262C 
03FEE 
02486 
03FF1 
0257C 
03FF4 
0255E 
03FF7 
024B0 
03FFA 
026B6 
03FFD 
026D4 
04000 
02892 
04003 
02912 
04006 
02A7C 
04009 
02958 
0400C 
02996 
0245C 
35E8 
035E8 
035A0 



02452 



00000 
0222A 



B m 

TRANS 



2273 

2274 

2275 

2276 

2277 

2278 

2279 

2280 

2281 

2282 

2283 

2284 

2285 

2286 

2287 

2288 

2289 

2290 

2291 

2292 

2293 

2294 

2295 

2296 

2297 

2298 

2299 

2300 

2301 

2302 

2303 

2304 

2205 

2306 SNDILG 

2307 

2308 

2309 

2310 

2311 + 

2312 + 

2313 + 
2314+ 
2315 + 
2316+ 
2317+ 
2318+ 

2319+IHB0041 
2320+IHB0040 
2321 + 

2322 



2223 
2324 
2325 
2 326 
2327 



mi 

LA 

L 

L 

L 
L 

MVC 
ORTN 

TR 
CLC 
BE 
CLC 
BE 
CLC 
BE 
CLC 
BE 
CLC 
BE 
CLC 
BE 
CLC 
BE 
CLC 
BE 
CLC 
BE 
CLC 
BE 

CLC 

BE 

CLC 

xc 

STM 
LA 
LA 

WTOR 
ChiOP 
BAL 
DC 
DC 
DC 
DC 
DC 
DC 
EQU 
A DS 
SVC 
LM 
B 



0(1),X»7F« 

8,16 

8,0(8) 

8,0(8} 

8,4(8) 

8,12(8) 

J0BNAME,0(8) 



ADDR OF CVT PTR IN 8 

ADDR OF CVT IN 6 

ADDR OF TCB WORDS IN 8 

ADDR OF TCB IN 8 
ADDR OF TIOT IH 8 



TAB 
TAB 
TAB 
TAB 



RQSTIM,TYPTBL 
RQSTINOI ,=C«SSS* 
SSIN 

RQSTIN(3),=C«L0C» 

CDLOAD 

R0STIN(3) ,=C«LDT» 

TPLOAD 

R0STIN(3),=C»SRS« 

STRST 

RQSTI^(3) ,=C«STT» 

START 

R0STIN(3) ,=C»CLR' 

CLR 

R0STIN(3),=C»DIS» 

DIS 

R0STIN{3),=C«ALT« 

ALT 

RQSTIN(3) ,=C«WTN« 

WTMCMD 

RQSTINO) , = C»RWD» 

R^DCHD 

R0STI,MC3) ,=C«TRH" 

TERMINAT 

RQSTINC3) ,=C»OHP» 
rti iMorno c 



ROSTItM,RQSTI!M 
13tl5,MACRE&SV 
6,HACREGSV 
13,SAVEAREA 



ZERO OUT REPLY AREA 
SAVE MACRO REG 
SAVE ADDRESS TO XR 
GIVE OS OUR SAVE AREA 



» ILLEGAL ENTRYSRCSTIN,50,WTECB 

0,4 

1,IHB0040A BRANCH AROUND LIST 

ALi(50) REPLY LENGTH 

AL3(RQSTIN) REPLY ADDRESS 

A(WTECB) ECB ADDRESS 

AL2( IHB0041-*) MESSAGE LEMGTH 

B» 0000000000000000* MCSFLAGS FIELD 

C« ILLEGAL ENTRY* MESSAGE 



ROSTIN 



DS 



OH 

35 ISSUE WTOR 

13,15,0(6) 

TtSTAA 
CL50 



SVC 

RESTORE 



HACRO REGISTERS 



00214800 
00214900 
00214910 
00215000 
00215100 
00215200 
00215300 
00215400 
00215500 
00215600 
00215700 
00215800 
00215900 
00216000 
00216100 
00216200 
00216300 
00216400 
00216500 
00216600 
00216700 
00216800 
00216900 
00217000 
00217100 
00217200 
00217300 
00217400 
00217500 
00217600 
00217700 
00217710 

00217800 
00217900 
00218000 
00218100 
00218200 



THIS SECTION WILL SINULATE THE 1402 CARD LOAD PUSHBUTTON. 



00218300 
00218400 
00218500 
00218600 
00218700 
00218800 
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LOC 



5JECT CODE 



ADOkI ADDR2 STHT 



SOURCE STATEMENT 



F150CT70 10/28/71 



0024BE D74F 7001 7001 00001 00001 



002494 9200 FIDO 
00249B 4580 FC14 
00249C 9640 7001 
0024A0 41A0 7001 
0024AA 4190 0000 
0024A8 9201 F414 
0024AC 47F0 E076 



0024B0 
0024B4 
0024R8 
0024BC 
0024C0 
0024C4 
0024CS 
0024CA 
0024CE 
0024D2 
0024D6 
00 24 DA 
0024DE 
0024E2 
0024E6 
00 24 E A 
0024EE 
0024F2 
0024F8 
0024FE 
002502 
002506 
00250A 
00250C 
00250B 
002512 
002516 
00251C 
002520 
002524 

002528 
002528 
00252C 
002520 
002530 
002534 
002536 
002538 
002552 
002552 



9501 
4770 
4150 
9500 
4770 
5880 
07F8 
9500 
4780 
95F0 
4740 
4155 
47F0 
5B50 
4950 
4720 
4250 
DlOO 
F270 
4F40 
4940 
4720 
1A47 
18A4 
4190 
47F0 
D731 
90DF 
4160 
41D0 



F414 
F3CE 
F317 
5000 
F382 
E530 



5000 
F39A 
5000 

F208 
0001 

F38 2 

EE2C 

EE68 
F2D8 
FB68 
F3B1 
e"3C8 
E3C8 
EE8S 
F2D8 



0000 
E076 
F3 14 
E4A0 
E4A0 
E458 



02318 



00001 



0255C 



0255C 



00000 



00000 



00000 



FB68 

F317 



024F9 

03510 



F3i4 02450 



4510 F40A 

32 

00245C 

0000231C 

00 IE 

OOOn 

C3C1D5D5D6E340E2 



02D5C 

00001 
00000 

031BE 



02516 
0245F 

U-ifHuA 

03678 



024 E2 

02420 
00001 
024CA 
03F74 
03FB0 
02420 
02CB0 
02CB0 
0245F 
03510 
03FD0 
02420 



00000 
031BE 
0245C 
035e8 

035E8 
035A0 



02552 



2328 
2329 
2330 
2331 
2332 
2333 
2334 
2335 
2336 

O -3 'i -T 
C.3D I 

?33S 

2339 

2340 

2341 

2342 

2343 

2344 

2345 

2346 

2347 

2348 

2349 

2350 

2351 

2352 

2353 

2354 

2355 

2356 

2357 

2358 

2359 

2360 

2361 

2362 

2363 

2364 

2365 

2366 

2367 

2368 

2369 

2370 

2371 

2372 

2373 + 

2374+ 

2375+ 

2376+ 

2377 + 

2378 + 
2379+ 
2360 + 
2 381 + 
2382 + 



CDLOAD 



START 



START 1 



START2 



START3 



START4 



XC SIMC0R+l(80JrSIMC0R+l 

mi NODfX»00» 

BAL 8, READ 

01 SIMC0R+1,X»40' 

LA 10,SINC0R+1 

LA 9,0 

MVI OKSTTjl 

B NX TOP 

THIS SECTION WILL SIMULATE THE START PUSHBUTTON, IF THE 
OPERATOR CONHAND STT IS FOLLOWED BY AN ADDRESS, THE 1401 PROGRAN 
WILL RESUME FROM THAT ADDRESS. HOWEVER, IF STT IS MOT FOLLOWED 
BY ANYTHING, THE 1401 PROGRAM WILL RESUHE FROM WHERE IT STOPPED. 



CLI 

BME 
LA 
CLI 
BNE 

L 

BR 
CLI 
BE 
CLI 
BL 
LA 
B 
S 

CH 
BH 
STC 

mn 

PACK 
CVB 
CH 
BH 

AR 
LR 
LA 



IHB0043 
IHB0042A 



XC 
STM 
LA 
LA 

WTOR 

CNOP 

BAL 

DC 

DC 

DC 

DC 

DC 

DC 

ECU 

DS 



Q/ 
YES, 



IS THERE A START ADDRESS 



START FROH THERE 



NUMERIC 



BYTE 



Q/ END OF MESSAGE 

YES 

MO, IS IT 

NO, ERROR 

YES, TRY NEXT 

GET LENGTH ~ 1 

Q/ LENGTH GT 5 DIGITS 

YES, ERROR 

CONVERT TO BINARY 



0KSTT,1 
START4 
5,RQSTIN+3 
0(5), 

START! 

8, RETURN 

8 

0(5) ,0 

START2 

Of5),C»0« 

SNDIL6 

5,1(5) 

STARTl 

5,=A(R0STIN+4) 

5,=H»4* 

SNDILG 

5,TEHP1 

START3+-1(1) ,TEHP1 

PAKT?RQSTIN+3(0 ) 

4,PAKT 

4,=H»15999* 

SNOILG 

4,7 

10,4 

9,0 

NXTOP 

ROSTIN,RQSTIN 

13,15,HACREGSV 

6,MACREGSV 

13,SAVEAREA 

•CANNOT START, NO 

0,4 

1,IHB0042A BRANCH AROUND 

AL1(50) REPLY LENGTH 

AL3(R0STIN) REPLY ADDRESS 

A(WTECB) ECB ADDRESS 

AL2( IHB0043-'5^) MESSAGE LENGTH 

B» 0000000000000000* HCSFLAGS FIELD 

C^CANNOT START, NO PGH LOADED* HESSAGE 

OH 



Q/ ADDRESS 
YES, ERROR 
NO, GO THERE 



GT 15999 



ZERO 
SAVE 
SAVE 
GIVE 
PGM 



OUT REPLY AREA 
MACRO REG 
ADDRESS TO XR 
OS OUR SAVE AREA 
LOADED SRQST IN, 50, WTECB 



LIST 



00218900 
00219000 
00219100 
00219200 
00219300 
00219400 
00219500 
00219600 
00219700 
00219800 
00219900 
00220000 
00220100 
00220200 
00220300 
00220400 
00220500 
00220600 
00220700 
00220800 
00220900 
00221000 
00221100 
00221200 
00221300 
00221400 
00221500 
00221600 
00221700 
00221800 
00221900 
00222000 
00222100 
00222200 
00222300 
00222400 
00222500 
00222600 
00222700 
00222800 
00222900 
00223000 
00223100 
00223200 
00223300 
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LOC 



jbject code 



ADDRi ADDR2 STMT 



SOURCE STATEMENT 



F150CT70 10/28/71 



002552 0A23 
002554 980F 6000 
002558 47F0 F0E2 
00255C 00 



00000 
0222A 



00255D 
0025 5 E 
002560 
002562 
002566 
00256A 
00256E 
002572 
002576 
00257A 



00 

186A 

1A69 

5060 

9200 

9200 

9200 

9200 

5 8 BO 

07 F8 



FB60 
E1A9 
ElAA 
E1A8 
ElAC 
E530 



00257C 


41A0 


EE30 


002580 


9200 


FIDO 


002584 


4580 


FFDO 


002588 


5030 


F924 


00258C 


4580 


FF3C 


002590 


4580 


FF3A 


002594 


D203 


F9?0 


00259A 


9244 


F910 


00259E 


90DF 


E4A0 


0025A2 


4160 


E4A0 


0025A6 


4100 


E45 8 



0025 AA 4110 F910 
0025AE OAOO 
0025B0 98EF 6004 



0025B4 
0025B8 
0025BC 
0025BE 
0025C2 
0025C6 
0025CA 
0025CC 
0025D0 
0025D4 
0025D8 
0025DC 
0025E0 
0025E6 
0025EC 
0025F0 
0025F4 
0025F8 
0O25FE 



4110 

4100 
OAOl 
9BDF 
4810 
4820 
1B21 
4130 
5810 
9 560 
4770 
4111 
D200 
DCOO 
9640 
4B20 
47F0 
D200 
DCOO 



032F1 
032F2 

032F3 

032F4 



E E 3 4' 



02A66 
02A58 



F930 

0001 

6000 
F91E 
EE78 

7001 
EICO 
1000 

F4R0 

0001 

3000 

3000 

3000 

EE66 

F4BC 

3000 1000 

3000 E91A 



1000 
E914 



:>oooo 



00000 

00000 
00000 



00000 
00000 



02CA8 



03678 



03F78 

03118 
02A6C 
03084 

03082 

03F7C 

035E8 
035E8 
35A0 

02 A 58 

00004 

02A78 
00001 

00000 
02A66 
03FC0 

00001 
03308 

025F8 
00001 
00000 
03A5C 

03FAE 
02604 
00000 
03A5C 



2383+ SVC 

2384 LM 

2385 B 

2386 OKSTT DC 

2387 * 

2388 * THIS SECTION WILL SIMULATE THE START-RESET PUSHBUTTON- 

2389 * 



35 ISSUE mOk SVC 

13,15t0{6) RESTORE MACRO REGISTERS 

TESTAA 

x«oo« 



2390 STRST 

2391 

2392 

2393 

2394 

2 395 

2396 

2397 

2398 

2399 ^ 

2400 * 

2401 * 

2402 TPLOAD 
2403 

2404 
2405 
2406 
2407 
2408 
2409 
2410 
2411 
2412 
2413 

2415 + 

2416 

2417 

2418+ 

2419+ 

2420+ 

2421 

2422 

2423 

2424 

2425 

2426 

2427 TPLDl 

242 8 

2A29 

2430 

2431 

2432 

2433 

2434 

2435 TPLD2 

2436 



LR 
AR 
ST 

mi 

HVI 

mi 

L 

BR 



6,10 
6t9 

6, ADR 360 
TPERRfO 
TPEOFtO 
OVRFLO,0 

CPRtQ 

8, RETURN 
8 



LOAD ADDRESS FOR START TAB 
GO DO START TAB 



THIS SECTION SIMULATES THE LOAD TAPE PUSHBUTTON 



LA 
MV I 

BAL 
ST 
BAL 
BAL 
MVC 
HVI 
STH 
LA 
LA 
EXCP 

I A 

SVC 

LM 

WAIT 

LA 

LA 

SVC 

LH 

LH 

LH 
SR 
LA 

L 
CLl 
BNE 
LA 
HVC 
TR 
01 
SH 
B 

NVC 
TR 



10, = X» 00000001* 

HOD , X • 00 • 

8,FNDRIV 

3,THDCB 

SfTSTOPEN 

StLOADNSD 

TPCCW,=A(LDTCCW) 

TMI0B,X»44« 

13,15,HACREGSV 

6,MACREGSV 

13,SAVEAREA 

TMIOB 



SAVE HACRO REGS 
SAVE ADDRESS TO XR 
GIVE OS OUR SAVE AREA 



ISSUE SVC 
14,15,4(6) 
1,ECB=TMECB 
l,TMeCB LOAD 



FOR 



EXCP 
RESTORE REG 14 
WAIT FOR I/O 
PARAMETER REG 1 



AND 15 



0,ltO,0) LOAD PARAMETER REG 
1 LINK TO WAIT ROUTINE 



13,15,0(6) 

ltTMiOB+14 

2t=H«18000» 

2,1 

3,SIHC0R+1 

1,TAPEAREA 

0( 1),X»6D» 

TPL02 

1 f 1(1) 

0(1,3), 0(1) 

0(1,3) ,TREI 

0(3),X«40» 

2,=H«1« 

TPLD3 

0(1, 3), 0(1) 

0(1,3) ,TREI 



RESTORE 

LOAD 



MACRO 
BYTE 



REGISTERS 
COUNT FROM 



CSi^ 



00223400 
00223500 
00223600 
00223700 
00223800 
00223900 

00224000 
00224100 
00224200 
00224300 
00224400 
00224500 
00224600 
00224700 
00224710 
00224800 
00224900 
00225000 
00225100 
00225200 
00225300 
00225400 
00225500 
00225600 
00225700 
00225800 
00225900 
00226000 
00226100 
00226200 



00226300 
00226400 



00226500 
00226600 
00226700 
00226800 
00226900 
00227000 
00227100 
00227200 
00227300 
00227400 
00227500 
00227600 
00227700 
00227800 
00227900 
00228000 
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LOG 


OBJECT CO 


002604 


4111 


0001 


002608 


4133 


0001 


00260C 


4620 


F48C 


002610 


9440 


3000 


002614 


963F 


3 000 


002618 


41G3 


0001 


00261C 


41A0 


7001 


002620 


4190 


0000 


002624 


9201 


F414 


002628 


47F0 


E076 



ADDRl ADDR2 STMT 



SOURCE STATEMENT 



00000 
00000 



255C 



00001 
00001 

025D4 



00001 
00001 
00000 

3 i B E 



00262C 
002630 
002636 
00263A 
00263E 
002642 
002646 
0d264A 
00264E 
002652 
002656 
00265A 
00265 E 
002660 
002664 
002668 
00266 C 
002670 
002676 
00267A 



002684 
002684 
00268B 
00268C 
002690 
002694 
002698 
00269C 
0026A0 
0026A4 
00 26 A 8 
0026AC 
0026B0 
0026B4 



4160 
D706 
4150 
9500 
4780 
95C1 
4740 
95 C 7 
4720 
4346 
5440 
4120 
1A24 
9201 
4166 
4650 
47F0 
D206 
47F0 



F317 

F532 F532 

0008 

6000 

F528 

6000 

F2D8 

6000 

F208 

0000 

FE14 

F531 

2000 
0001 

F4 F 2 
F2DB 

ElAO F532 
F08C 



0245 F 

0267A 0267A 

00008 

00000 

02670 

00000 

02420 

00000 

02420 
00000 
03F5C 
02679 

00000 

00001 
026 3 A 
02420 

032E8 0267A 
021D4 



E3D7F00A 
E3D7F101 
E3D7F202 
E3D7F303 
E3D7F404 
E3D7F5 05 
E307F606 
e3D7F707 
E307F9 08 
E3D7F9n9 
00000000 
00000000 
0000 



2437 

2438 

2439 

2440 

2441 

2442 

2443 

2444 

2445 

2446 

2447 

2448 

2449 

2450 

2451 

2452 

245 3 

2454 

2455 

2456 

2457 

245S 

2459 

2460 

2461 

2462 

2463 

2464 

2465 

2466 

2467 

2468 

2469 

2470 

2471 

2472 

2473 

2474 

2475 

2476 

2477 

2478 

2479 

2480 

2481 

2482 

2483 

2484 

2485 

2486 

2487 

2488 

2489 

2490 

2491 



TPLD3 



SSIN 



SSINl 



SSENO 
TSSA 



TPTBL 



LA It 1(1) 

LA 3,1C3) 

BCT 2,TPLD1 

NI 0{3),K»40* 

or 0t3),X»3F» 

LA 12»1C3) 

LA 10,SIHC0R+1 

LA 9r0 

MVI OKSTTfl 

B NXTOP 

THIS SECTION SIMULATES THE SETTING OF SENSE 
INDICATORS IM CORE BASED UPON THE SSS IMPUT 
ROUTINES THAT SINULATE THE BSS INSTRUCTIONS 
INDICATORS. 



SWITCHES BY SETTING 
COHMAND. THE 
WILL TEST THESE 



LA 6,R0STIN+3 

XC TSSA(7),TSSA 

LA 5,8 

CLI 0(6)tO 

BE SSEND 

CLI 0(6),C»A» 

BL SNDILG 

CLI 0C6),C»G» 

BH SNDILG 

IC 4t0t6j 

M 4,=F»7* 

LA 2,TSSA~1 

AR 2,4 

MVI 0(2), 1 

LA 6,1(6) 

BCT 5, SSINl 

HVC SENSEA(7),TSSA 

R WTORTN 

DS 7C 



REFERENCE FIRST SENSE SWITCH 

CLEAR TENPORARY SENSE SWITCHES 

SET TO SCAN 8 SETTINGS MAX 

0/ DONE 

YES, HOVE THEM 

0/ IS THIS SENSE SWITCH LEGAL 

NO 



NO 
YES 

SET TEMPORARY SENSE 



SWITCH 



F150CT70 10/28/71 



00228100 
00228200 
00228300 
00228400 
00228500 
00228600 
00228700 
00228800 
00228900 
00229000 
00229100 
00229200 
00229300 
00229400 
00229500 
00229600 
00229700 
00229800 
00229900 
00230000 
00230100 
00230200 
00230300 
00230400 
00230500 
00230600 
00230700 
00230800 
00230900 
00231000 
00231100 
00231200 



REFERENCE NEXT INPUT CHARACTER 

0/ ARE THERE TOO MANY INPUT CHARACTERS 



TEMPORARY SENSE SWITCHES 



THIS SECTION WILL SET THE TAPE TABLE WITH THE 1401-360 EQUIVALANT 
TAPE DRIVE NUMBERS RASEO UPON THE TAS OPERATOR COMMAND, THE 
TAPE INSTRUCTION ROUTINES WILL SEARCH THIS TABLE TO DETERMINE 
WHICH ORIVE TO USE. 



DS 



DC 
DC 



DC 
DC 
DC 
DC 
DC 



OC 

DC 
DC 



SAVE5 

SAVEDD 

DOLEN 



DC 
DC 
DC 



OF 

XL4 

XL4 

XL4 

XL4 

XL4 

XL4 

XL4 

XL4 

XL4 

XL4 

F»0 

F»0 

H*0 



E3D7F00A* 
E3D7F101* 
E307F202* 
E3D7F303* 
E3D7F404* 
E3D7F505* 
E3D7F606* 
E3D7F707» 
E3D7F80e» 
E307F909* 



00231400 
00231500 
00231600 
00231700 
00231800 
00231900 
002 32000 
00232100 
00232200 
00232300 
00232400 
00232500 
00232600 
00232700 
00232800 
00232900 
00233000 
00233100 
00233200 
00233300 
00233400 
00233500 
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LOC OBJECT COD! 



ADDRl. ADDR2 STHT 



SOURCE STATEMENT 



F150CT70 10/28/71 



0026B6 4120 7000 00000 

0026BA 4130 0040 00040 
0026BE 07F9 2000 2000 00000 00000 

0026C4 4122 OOFA OOOFA 

0026C8 4630 F576 026BE 

0026CC 9200 F414 0255C 

0026D0 47F0 F08C 021D4 



0026D4 
0026D8 
00260C 
0026E0 
0026E4 
0026E8 
0026EC 
0026F0 
00 26 F 2 
0026F6 
0026FC 
002700 
002704 
002708 
00270C 
002710 
002716 
00271C 

\J\JC. t C^J 

002726 
00272C 
002730 
002734 
002738 
00273A 
00273E 
002744 
00274A 
002750 
002756 
00 27 5 A 
00275E 
002762 
002768 
00276C 
00276E 
002772 
002778 
00277C 
00277E 
002782 



4150 
9500 
4780 
95F0 
4740 
4155 
47F0 
1825 
4B20 
D501 
4770 
5B50 
4950 
4720 
4250 
0213 
0200 
4250 

r\ 1 nr\ 

u i^KJ\J 

F270 
4F40 
4940 
4720 
1A47 
9209 
D213 
0263 
0C63 
020A 
90DF 
4160 
41D0 
0263 
4110 
0A23 
98EF 
D263 
4110 
0A23 
98 EF 
0263 



F317 
5000 
F5A8 
5000 
F2D8 
0001 
F590 

EE74 
2000 
F208 
EE2C 
EE68 
F2D8 
F5CF 
F6C5 
F6CD 
FB6B 

cr c r\ c: 
r ^u r 

E3C8 
E3C8 
EE8C 

F208 

E3D0 
E3D1 
E3E5 
E3E5 
E449 
E4A0 
E4A0 
E458 
F660 
F65C 

6004 

F660 
F65C 

6004 

E3E5 



00000 



00000 



EEBA 00000 



E2C3 
F317 



0280D 
02815 



F317 03510 



E2C3 
4000 
EA14 
E2C3 



03518 
03519 
0352D 
0352D 
03591 



0245F 

O26F0 

02420 
00001 

026D8 

03FBC 
03F02 
02420 
03F74 
03FB0 
02420 
02717 
03408 
0245F 
02CB0 

r» or- D rv 
'a £. v^ u M 

0245F 
03510 
03FD4 
02420 





U 





*^. 

\J 




F6D9 027A6 




340B 
0000 
3B5C 
340B 
35E8 
35E8 
35AO 
2821 
27A4 



00004 

E3E5 027A8 0352D 
027A4 

00004 
4000 0352D 00000 



2492 
2493 
2494 
2495 
2496 
2497 
2498 
2499 
2500 
2501 
2502 
2503 
2504 
2505 
2506 
2507 
2508 
2 509 
2510 
2511 
2512 
2513 
2514 
2515 
2516 
2517 
2518 
2519 
2520 
2521 
2522 
2523 

1 EtO /. 

2525 

2526 
2527 
2528 
2529 
2530 
2531 
2532 
2533 
2534 
2535 
2536 
2537 
2538 
2539 
2540 
2541 
2542 
2543 
2544 
2545 
2546 



>Jr 



CLR 



CLRl 



THIS SECTIOM 
COHNAND CLR. 



WILL CLEAR ALL 1401 CORE UPON Ef^TRY OF THE OPERATOI 



DIS 
DISl 



DIS2 



DIS3 



0IS4 



LA 2,SIMC0R 

LA 3,64 

XC 0(250t2) t0(2) 

LA 2t250(2) 

BCT 3fCLRl 

HVI OKSTTfO 

B WTORTN 

THIS SECTION WILL DISPLAY ON THE PRIMTER THE HUNDREDS GROUP 

OF 1401 CORE REFEREHCFD IN THE OPERATOR COMMAND DIS . 



LA 

CLI 

BE 

CLI 

BL 

LA 

B 

LR 

SH 

CLC 

BNE 

S 

CH 

BH 

STC 
HVC 
MVC 

STC 

ri V m 

PACK 

CVB 

CH 

BH 
AR 
MVl 
MVC 
MVC 
TR 
MVC 
STH 
LA 
LA 
MVC 
LA 
SVC 
LM 
MVC 
LA 
SVC 
LM 
MVC 



5,R0STIN+3 

0C5),X»00« 

DIS2 

0(5) rC»0» 

SNDILG 

5,1(5) 

DISl 

2,5 

2,=H»2« 

0C2t2)t=C»00» 

SNDILG 

5,=A(R0STIN+4) 

5,^H*4» 

SNDILG 

5,DIS3+1 

0SMRKR4-1(20),WM256 

0SMRKR+9(0} ,RQSTIN+3 

5, TEMPI 



HOVE ADDR FOR PRINTING 



PAKTtRQSTIN+3{0) 

4,PAKT 

4,=H» 15900* 

SNDILG 

4,7 

PRNTBUFF,X»09» SET 

PRNTBUFF+1(20} ,WH256 

PRNTBUFF+21(100J,0C4) 

PRNTBUFF+21 ( 100 ) , TR IE 

PRNTBUFF+121(11 ),NM256 

13,15,MACREGSV 

6,MACREGSV 

13,SAVEAREA 

DISPMSG+4(100),DSMRKR+21 

1,DISPMSG 

35 

14,15,4(6) 

DISPMSG+4(100),PRNTBUFF+21 

UDISPMSG 

35 

14,15,4(6) 

PRNTBUFF+21( 100), 0(4) CHANGE 



ADD IN ADDRESS OF 
CARRIAGE CONTROL 



1401 S IMC ORE 



PRINT AREA TO EBCDIC 



CHANGE 

SAVE BASE REGISTERS 

LOAD SAVE AREA 



WORD MARKS TO EBCDIC IS 



00233600 
00233700 
00233800 
00233900 
00234000 
00234100 
00234200 
00234300 
00234400 
00234500 
00234600 
00234700 
00234800 
00234900 
00235000 
00235100 
00235200 
00235300 
00235400 
00235500 
00235600 
00235700 
00235800 
00235900 
00236000 
00236100 
00236200 
00236300 
00236400 
00236500 
00236600 
00236700 

nnntiz. anr\ 

00236900 
00237000 
00237100 
00237200 
00237300 
00237400 
00237500 
00237600 
00237700 
00237800 
00237900 
00238000 
00238100 
00238200 
00238300 
00238400 
00238500 
00238600 
00238700 
00238800 
00238900 
00239000 
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LOG OBJECT CODE 



ADDRl AD0R2 STHT 



SOURCE STATEHEf^T 
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002788 
00278E 
002794 
002798 
00279A 
00 279 E 
0027A2 
0027A4 
0027A6 

UUtl f MO 

00280C 
00280C 
002821 
002854 
00288^ 



002891 
002892 
002896 
00289A 
00289E 
0028A2 
002BA6 
0028AA 
0028AE 
0028BD 
002884 
0028B8 
00288C 
0028CO 
0028C6 
0028CC 
00 2 8 DO 
002804 
002808 
00280A 
0O280E 
0028 E 2 
0028E6 
0028EA 
0028EE 
0028F2 
0028F6 
0028FA 
002900 
002906 
00290A 
00 2 90 E 



DC63 E3E5 ECS4 0B52D 

D263 F660 E3E5 027A8 

4110 F65C 

0A23 

98DF 6000 

47F0 F08C 

0700 

0068 

0000 

4040 404 04 0404040 

0940404040404040 
F04B4B4B4B4B4B4B 
4B4B434B4B4B4BF5 
4040404040404040 



03D9C 
0352D 
027A4 

00000 
021 04 



00 

4160 

956B 

4780 

<55FO 

4740 

4166 

47F0 

1856 

5B50 

4950 

4720 

4250 

DlOO 

F270 

4F40 

4940 

4720 

1A47 

4166 

9500 

47B0 

9200 

956D 

4770 

9240 

4166 

DCOO 

D600 

4166 

4144 

47F0 



F317 

6000 
F766 
6000 
F2DS 
0001 
F74E 

EE2C 
EE68 
F2D3 
FB68 
F77F 
E3C8 
E3C8 
Ee88 
F2DB 

0001 
6000 

F08C 
4000 
6000 
F7B2 
4000 
0001 
600U 
4000 
0001 
0001 
F7Q6 



OOODO 



OOODO 



0245F 

028AE 

02420 
00001 

02896 



03F74 
03F30 
02420 
02CB0 

FB68 02ttC7 02CB0 

F317 03510 0245F 

03510 

03F00 

02420 

00001 
00000 

02104 
00000 
00000 

028FA 
00000 

00001 
t9l4 00000 03A5C 
6000 00000 00000 

00001 

00001 

0280E 



254? 
2548 
2549 
2550 
2551 
2552 
2553 
2554 
2555 
2556 
2557 
2558 
2559 
2560 
2561 
2562 
2563 
2564 
2565 

2566 
2567 
2568 
2569 
2570 
2571 
2572 
2573 
2 574 
2575 
2576 
2577 
2 578 
2579 
2580 
2581 
2582 
2583 
2584 
2585 
2586 
2587 
2588 
2589 
2590 
2591 
2592 
2593 
2594 
2595 
2596 
2597 
2 598 
2 599 
2600 



DISPNS6 



ENDISP 
DSHRKR 



ALT 
ALTl 



ALT2 



ALT3 



ALT4 



ALT4A 



DC 

DC 
DC 



TR PRNTBUFF + 21( 100)tTRWDHK. *" 

MVC DlSPMSG+4C100)fPRNTBUFF-»-21 

LA IrDISPMSG 

SVC 35 

LM 13,15r0(6) 

B WTORTN 

CNOP 0,4 

DC AL2( ENDISP-*) 

DC X'OOOO* 

DC 100X»40» 

EQU * 

DC X*09«,20X»40» 

C*»»»»».«59,, 
C* 



RESTORE HACRO REGISTERS 



MESSAGE LE!MGTH 



• • •> 
I 



..69.... 



'.29* • .. *». •39» •* .... .49* 
f7...«»»».89......*.99 



THIS SECTION NILE MODIFY THE 1401 CORE LOCATION REFERENCED IN 
THE OPERATOR CDNNANO ALT . 



LA 6tR0STIN+3 

CLI 0C6),CS» 

BE ALT2 

CLI 0(6), CO* 

8L SNDILG 

LA 6,1<6) 

B ALTl 

LR 5,6 

S 5,=ACR0STIN+4) 

CH 5,=H«4» 

BH SNOILG 

STC 5,TENP1 

HVN ALT3+1 ( 1 ) ,TEMP1 

PACK PAKT,RQSTIN+3(0) 

CVB 4,PAKT 

CH 4,=H»15999« 

BH SNDILG 

AR 4,7 

LA 6,1(6) 

CLI 0(6), 

BE WTORT^f 

NVI 0(4), 

CLI 0(6),C»_» 

8NE ALT4A 

HVI 0(4),X»40» 

LA 6,1(6) 

TR 0(1,6),TREI 

OC 0(1, 4), 0(6) 

LA 6,1(6) 

LA 4,1(4) 

B ALT4 



* 
* 
♦ 



THIS SECTION WILL WRITE A TAPE 
SELECTED BY THE HTM COMNAND. 



BUMP TO DATA TAB 

END OF DATA? TAB 

YES, GO GET NEXT COMHAND TAB 

CLEAR 1401 CHAR TAB 

NO, CHECK FOR WORD NARK TAB 

NO WM, GO MOVE CHAR TAB 
m REQ, SET WM IN 1401 CORE TAB 

BUMP TO CHAR TO BE MOVED TAB 

TRANS CHAR TO 1401 CODE TAB 

INSERT CHAR IN 1401 CORE TAB 

BUMP TO NEXT CHAR IN REQ TAB 

BUMP TO NEXT CHAR IN 1401 TAB 

LOOP TO CHECK NEXT CHAR TAB 

HARK ON THE TAPE DRIVE 



00239100 
00239200 
00239300 
00239400 
00239500 
00239600 
00239700 
00239800 
00239900 
00240000 
00240100 
00240200 
00240300 
00240400 
00240500 
00240600 
00240700 
00240800 
00240900 

00241000 
00241100 
00241200 
00241300 
00241400 
00241500 
00241600 
00241700 
00241800 
00241900 
00242000 
00242100 
00242200 
00242300 
00242400 
00242500 
00242600 
00242700 
00242710 
00242800 
00242900 
00242910 
00243000 
00243100 
00243200 
00243300 
00243310 
00243320 
00243330 
00243340 
00243350 
00243400 
00243500 
00243600 
00243700 
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LOC OS J EC T CODE 



ABDRl A DDR: 



STMT 



SOURCE STATEWtNT 



002912 


940F 


F317 


002916 


41A0 


F314 


00291A 


4 580 


FFDO 


00291E 


5030 


F924 


00292? 


4580 


FF3C 


002926 


4580 


FF3A 


00292 A 


02 03 


F920 


002930 


90DF 


E4AQ 


002934 


4160 


E4A0 


00293 8 


41D0 


E458 


00293C 


4110 


F910 


002940 


OAOO 




002942 


98EF 


6004 



C245F 



002946 4110 F930 
00294A 4100 0001 
00294E OAOl 
002950 98DF 6000 
002954 47F0 F08C 



002958 900F E4A0 

00295C 41D0 E458 

002960 4160 E4A0 

002964 

002964 4510 F824 

002968 80 

002969 0036F8 

rin'yrt n r- nsi/. 

00296E 98FF 6004 

002972 9110 E664 

002976 4780 F840 

00297A 4110 E634 

00297E 4100 E21A 

002982 58F0 1030 
002986 05EF 

002988 58DD 0004 



00298C 
002990 
002994 
002996 
0014AE 
00299A 
00299E 
0029A2 
00 29A8 
0029AE 
0029B2 
0029B8 



98EC 
41F0 
07FE 
5800 

96F0 
4520 

D263 
D20 5 
4520 
D264 
D208 



DOOC 
0000 

EE3C 

D09F 
F80E 
70C9 
7136 
FeuF 
70C9 
7136 



EE3B 02A6a 



37 AC 



7000 
EF8E 

7064 
EEC7 



1 5A D 

000C9 
00136 

000C9 
00136 



0245C 
03118 
02A6C 

03084 
03082 
03F80 

035E8 
035E8 
35A0 

02A58 

00004 

02A78 
00001 

00000 
021 04 



03568 
035A0 

035E8 



0296C 



00004 
02988 

03 770 

03362 

00030 

00004 

OOOOC 

00000 

03F84 



02A26 

00000 
03FD6 
02A26 
00064 
0400F 



RHINAT STM 
LA 



2601 ^TMCMD 

2602 

2603 

2604 

2605 

2606 

2607 

2608 

2609 

2610 

2611 

2612 + 

2613 + 
2614 
2615 
2616+ 
2617+ 
2618 + 
2619 
2620 

2621 * 

2622 * 

2623 ^ 

2624 * 

2625 TE 
2626 
2627 
2628 
2629+- 
2630+ 

2631 + 

2632 + 



2634 

2635 

2636 

2637 

2638+ 

2639+ 

2640+ 

2641 + 

2642 EXIT 
2643 
2644+ 
2645+ 
2646+ 

2647 DUHPCORE 

2648 

2649 

2650 

2651 

2652 

265 3 

2654 

2655 



HI 


R0STIM+3tX»0 


LA 


10,R.QSTIN 


BAL 


8,FMDRIV 


ST 


3tTHDCB 


BAL 


8,TST0PEN 


BAL 


8,L0ADNID 


mc 


TPCCW,=A(WTH 


STH 


13,15tM.ACReG 


LA 


6»HACREGSV 


LA 


13,SAVEAREA 


EXCP 


THIOB 


LA 


ItTHIOB LOAD 


SVC 


ISSUE SVC 


LH 


14,15,4{6J 


WAIT 


ltECB=TMECB 


LA 


ItTHECB LOAD 


LA 


0,1(0,0) LOA 


SVC 


1 LINK TO WA 


LM 


13,15tOC6) 


B 


WTORTN 



GET 



DEVICE ADDRESS 



CCW) 

SV SAVE MACRO REGS 

SAVE ADDRESS TO XR 
GIVE OS OUR SAVE AREA 

PARAMETER REG 1 
FOR EXCP 

RESTORE REG 14 AND 15 
WAIT FOR I/O 
PARAMETER REG 1 
D PARAMETER REG 
IT ROUTINE 

RESTORE NACRO REGISTERS 



THIS ROUTINE WILL TERMINATE THE SIMULATOR UPON THE OPERATOR 
ENTRY 'TRM*. 
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00243800 
00243900 
00244000 
00244100 
00244200 
00244300 
00244400 
00244500 
00244600 
00244700 
00244800 



00244900 

00245000 



LA 

CLOSE 

CNOP 

BAL 

DC 

DC 

c\ir 
o^ V u 

LM 

IH 

BZ 

PUT 

LA 

LA 

L 

BALR 

L 

RETUR 

LN 

LA 

BR 

L 

USING 

01 

BAL 

MVC 

HVC 

BAL 

NVC 

HVC 



13tl5fHACREGSV 

13tSAVEAREA 

6,HACREGSV 

PRNTDCB 

0,4 

l,*+8 BRANCH AROUND LIST 

AL1{128) OPTION BYTE 

AL3 (PRNTDCB) DCB ADDRESS 



14,15,4(6 

PUNCHR+48 
EXIT 

PUNCHRfPC 
It^UNCHR 
0,PCHARAA 
15,48(0,1 
14,15 LIN 
13,4(13) 
H (14,12) 
14,I2,12( 
15,0(0,0) 
14 RETURN 
13,=A(W) 
W,13 

DUHPSW+1, 
2, DUMP 
201(100,7 
SIHCDR+31 
2, DUMP 
201(101,7 
SIMCOR+31 



) 

,X»10* 

HARAA 

LOAD PARAN 

LOAD PARA 

) LOAD PUT 

K TD PUT K 

,RC = 

13) RESTOR 
LOAD RETU 



X»F0» 

),0(7) 
0(6) ,=X«OA 



IS PUNCH OPEN? 
NO, GO EXIT 

ETER REG 1 

NETER REG 
ROUTINE ADDR, 

OUTINE 

POINT TO SAVE AREA 
RETURN WITH RC=0 

E THE REGISTERS 

RN CODE 



SET DUMP SWITCH 
DUMP 201 - 332 

0020000909* 0-99 
DUMP 000 - 99 



TAB 
TAB 



TAB 
TAB 



00245100 
00245200 
00245300 
00245400 
00245500 
00245600 
00245700 
00245800 
00245900 
00246000 



00246100 
00246110 
00246120 
00246200 



00246300 
00246400 



), 100(7) 

0(9),=X'010AOA0020000 20A01 



100 - 201 
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LOC OBJECT CODE 



.ODKl ADDR2 ST HI 



SOURCE STATEMENT 
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00293 E 
0029C2 
0029C8 
0029CC 
0029D0 
0029D4 
0029D6 
0029DC 
D029DE 
00 29 E 2 

oa29e8 

0029EC 
00 29 F 2 
0029F6 
0029FA 
0029FE 
002A02 
002A06 
002A0A 
002A0E 

002A12 
002A16 
002A1A 
002A1E 
002A22 
002A26 
002A2A 
002A2E 
00 2 A 32 
002A36 
002A3A 
002A40 
002A44 
002A46 
002A4A 
002A50 

002A58 
002A58 
002AS9 
002A50 
002A60 
002A61 
002A68 
002A6C 
002A70 
002A74 
002A76 
002A78 
002A78 



45 20 
D201 
4810 
^910 
47B0 
lAlT 
D263 
1B17 
4E10 
F347 
96F0 
DC04 
4111 
4010 
4520 
47F0 
94 OF 
90DF 
4160 
41 DO 

4110 
58F0 

45E0 

98DF 

47F0 

4190 

41A0 

4140 

5020 

47F0 

D783 

5820 

07F2 

4242: 

0000 



F8DE 
F902 

F902 
EE96 
F8BA 



02A26 

EE94 02A4A 03FDC 
2A4A 
03FDE 
02A02 



70C9 1000 000C9 00000 



F908 
7136 
7 13 A 
7136 

0064 
F902 

F8DE 
F8B0 
009 F 
E4A0 

E4A0 

E458 

F5B0 
1030 
F008 
6000 
F08C 
0001 
F8FE 
F8F2 
F908 
0000 
70C9 
F90 8 

IC7B 



rh«u» 



E914 



00136 
0013A 
00136 



0154D 



70C9 000C9 



42 

00000000 

002A7B 

00 

00000000000000 

00 00 00 00 

00000000 

00000000 

0000 

0000 

00000000 



02A50 
02a50 

03A5C 
00064 
02A4A 
02A26 
029C8 

035E8 

035E8 
035A0 

036 F 8 
00030 
00008 
00000 
02 104 
00001 
02A46 
02A3A 
02A50 
014AE 
000C9 



002A7C 940F F317 



0245F 



2656 

2657 

2658 

2659 

2660 

2661 

2662 

2663 

2664 

266 5 

2666 

2667 

2668 

2669 

2670 

2671 

2672 

2673 

2674 

2675 

2676 

2677 + 

2678+ 

2679+ 

2680 

2681 

2682 

2683 

2684 

2685 

2686 

2687 

2688 

2689 

2690 

2691 

2692 

2693 

2694 

2695 

2696 

2697 

2698 

2699 

2700 

2701 

2702 

2703 

2704 

2705 

2706 

2707 

2708 

2709 

2710 



DUHPLOOP 



DUHPDON 



DUMP 



DUHPCLR 



DUMPOP 

DUNPADR 

DUH£>SAV; 

THIOB 



TPCSW 
fPCCW 

THOCB 



TMECB 

RWDCMD 



EAL 

HVC 

LH 

CH 

BNL 

AR 

MVC 

SR 

CVD 

UNPK 

01 

TR 

LA 

STH 

BAL 

B 

NX 

STM 

LA 

LA 

TRUNC 

LA 

L 

BAL 

LH 

B 

LA 

LA 

LA 

ST 

B 

XC 
j_ 

BR 

DC 

DC 

DS 

DROP 

DS 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DS 

DC 



2,DUHP 

DUHPADR,=H«300» 

UOUHPADR 

1,=H»16000» 

DUNPDONE 

lt7 

201C100f7) rO(l) 

1,7 

ltDUMPSAV2 

SIHC0R+310( 5) ,DUM 

SIMC0R+314,X«F0» 

SIMC0R+310(5),TRE 

If 100(1) 

ItDUMPADR 

2fDUHP 

DUHPLOOP 

DUHPSW+1,X«0F« 

13,15,MACREGSV 

6,MACREGSV 

13tSAVEAREA 

PRNlTDCB 

1,PRNT0CB LOAD PA 

15,48(0,1) LOAD R 

14,8(0,15) LI»'^K T 

13,15,0(6) 

WTORTN 

9,1 

10,DUMP0P 

4,DUHPCLR 

2,DUMPSAV2 

y 

201(132, 7), 201(7) 



X»42423C7B 

H»0» 

D 

13 

OD 

X»42» 

4X»00» 

AL3(THECB) 

x»oo« 

7X»00» 

XL 4 • 00* 

XL4»00» 

4X»00» 

2X«00« 

2X»00« 

OF 

4X • 00 • 



PSAV2 



DUHP 100 - 201 

SET UP LOCATION COUNTER 

GET DUHP ADDRESS 

ARE WE AT mo OF 1401 CORE? 

YES, EXIT 

ADD 1401 BASE ADDRESS 

HOVE 100 POS TO PRINT AREA 

SUBTRACT 1401 BASE ADDRESS 

ADDR TO DECINAL 

REMOVE SIGN 
TRANS TO 1401 CODE 
BUMP TO NEXT BAND 
STORE ADDR OF NEXT BAND 



TURN OFF DUMP SWITCH 
SAVE REGS 

SAVE ADDR OF SAVE AREA 
GET ADDRESS OF SAVE AREA 
FORCE WRITE FOR LAST BLOCK 

RAMETER REG 1 

EG 15 FROM DCB 

TRUNC ROUTINE 

RESTORE REGS 

EXIT 

LENGTH OF 1401 INST 

ADDR OF 1401 OP CODE 

LOAD RETURN ADDRESS 

SAVE LINK REG 2 

BRANCH TO WRITE ROUTINE 

CLEAR 1401 PRINT AREA 



.2_2<_. 1401 INSTS FOR DUHP 



ADDRESS OF CC'^ FOR TAPE OPERATION 
DCB ADDRESS FOR TA^E DRIVE SELECTED 



THIS SECTION ^ILL REWIND THE TAPE SELECTED BY THE RWD COMNAND 
NI RQSTIN+3,X»0F» GET DEVICE ADDRESS 



00247500 
00247600 
00247700 
00247800 
00247900 
00248000 
00248100 
00248200 
00248300 
00248400 
00248300 
00248600 
00248700 
00248800 
00 248900 
00249000 
00249100 



PAGE 



69 



LOC 03JECT CODE 



ADDRl ADDR2 STHT 



SOURCE STATEMENT 
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002A80 41 AO F314 

002A84 4580 FFDO 

002A88 5030 F924 

002A8C 4580 FF3C 

002A90 4580 FF3A 

002A94 D203 F920 EE40 D2A6S 

002A9A 9204 F910 02A58 

002A9E 900F E4A0 

002AA2 4160 E4A0 

002AA6 41D0 E458 

002AAA 4110 F910 
002AAE OAOO 
002AB0 98EF 6004 

002AB4 4110 F930 
002AB8 4100 0001 
002ABC OAOl 
002ABF 980F 6000 
D02AC2 47F0 F08C 



0O2AC6 


4580 


FAEO 


002ACA 


18CA 




002ACC 


1AC9 




002ACE 


50A0 


ElBO 


002AD2 


18A5 




002A04 


4190 


0000 


002AD8 


47F0 


E076 


002A0C 


90DF 


E4A0 


002AE0 


4160 


E4A0 


002At4 


41 DO 


E458 


002AE8 






002AE8 


4510 


F9B6 


O02ABC 


0012 




002AEE 


0000 




002AF0 


E4D5C4C5C6C9D5C5 


002AFF 






002AFE 






002AFE 


0A23 




002B00 


98DF 


6000 


002 BO 4 


47F0 


FA18 


002B08 


90 DF 


E4A0 


002BOC 


4160 


F4A0 


002B10 


4100 


E458 


002B14 






002B14 


4510 


F9E4 


002Bie 


0013 




002B1A 


0000 




002B1C 


C9D3D3C5C7C10340 


002B2B 







0245C 

03118 
02A6C 
03084 
03082 

03FB8 

035E3 
035E8 
035A0 

02A53 

00004 

02A78 
00001 



021D4 



02C2B 



032F8 

00000 

031BE 
035E8 
035E8 
035A0 



02AFE 



00000 

02B60 

035Ee 
3 5 E 8 
035AO 



02B2C 



SET8CH 



2711 
2712 
2713 
2714 
2715 
2716 
2717 
2718 
2719 
2720 
2721 

2722 + 

2723 + 
2724 
2725 
2726+ 
2727+ 
2728+ 
2729 
2 730 
2731 ■' 
2732 
2733 
2734 
2735 
2736 
2737 
2738 
2739 
2740 
2741 
2742 
2743 
2744 
2745 
2746+ 
2747+ 
2748 + 
2749+ 
2750 + 

2751+IHB0062 
2752-»'IHB0062 
2753+ 

2754 

2755 

2756 ILEGOP 

2757 

2758 

2759 

2760+ 

2761 + 

2762 + 
2763+ 
2764+ 
2765+IHB0063 



LA 
BAL 

ST 

BAL 

BAL 

MVC 

HVI 

STM 

LA 

I A 

EXCP 

LA 

SVC 

LM 

WAIT 

LA 

LA 

SVC 

LM 

B 
BEFORE B 
THE INST 
COUNTER 

BAL 

LR 

AR 

ST 

LR 

LA 

B 



lOrRQSTIM * 

8,FNDRIV * 

SfTMDCB 

8,TST0PFN 

8,L0ADMD 

TPCCW,=A(RWDCCW} 

THI0B,X»04« 

13,15tNACREGSV SAVE 

6,HACREGSV SAVE 

13»SAVEAREA GIVE 

THIOB 

ItTHIOB LOAD PARAMETER 

ISSUE SVC FOR EXCP 

14,15,4(6) RESTORE REG 14 AND 15 
1,ECB=TNECB WAIT FOR I/O 
1,THECB LOAD PARAMETER REG 1 
0,1(0,0) LOAD PARAMETER REG 

1 LIMK TO WAIT ROUTINE 

13,15,0(6) RESTORE MACRO REGISTERS 

W'TORTN 

RANCHING, SET THE B ADDRESS REGISTER TO THE "ADDRESS 

RUCTION AFTER THE BRANCH, THEN SET THE INSTRUCTION 

TO THE BRANCH ADDRESS, AND BRANCH. 



MACRO REGS 
ADDRESS TO XR 
OS OUR SAVE AREA 



REG 1 



OF 



ILEGTAPE 



STH 

LA 

LA 

WTO 

CNOP 

BAL 

DC 

DC 

DC 

EOU 

DS 

SVC 

LM 

B 

STM 

LA 

LA 

WTO 

CNOP 

BAL 

DC 

DC 

DC 

EOU 



GO TO BRANCH ADDRESS 
SAVE REGISTERS 



8,CVAD43 

12,10 

12,9 

10,LSTBCH 

10,5 

9,0 

NXTOP 

13,15,HACREGSV 

6,HACREGSV 

13,SAVEAREA 

♦UNDEFINED TAPE* 

0,4 

1,IHB0062A BRANCH AROUND HESSAGE 

AL2(1HB0062~*) MESSAGE LENGTH 

B> 0000000000000000* MCSFLAGS FIELD 

C'UNDEFINED TAPE' HESSAGE 

OH 

35 ISSUE SVC 

13,15,0(6) 

PANEL 

13,15,MACREGSV SAVE 

6,MACREGSV SAVE 

13,SAVEAREA GIVE 



CONVERT BRANCH ADDRESS 
LOAD B ADDRESS 

SAVE LAST BRANCHED FRDN LOCATION 
LOAD BRANCH ADDRESS 



FOR NXT INSTR, 



MACRO REGS 
ADDRESS TO XR 
OS OUR SAVE AREA 



•ILLEGAL OP CODE* 

0,4 

1,IHB0063A BRANCH AROUND HESSAGE 

AL2( IHB0063-*) HESSAGE LENGTH 

B •0000000000000000' HCSFLAGS FIELD 

C ILLEGAL OP CODE* MESSAGE 



00249200 
00249300 
00249400 
00249500 
00249600 
00249700 
00249800 
00249900 
00250000 
00250100 
00250200 



00250300 
00250400 



00250500 
00250600 
00250700 
00250800 
00250900 
00251000 
00251100 
00251200 
00251300 
00251400 
00251500 
00251600 
00251700 
00251800 
00251900 
00252000 
00252100 



00252200 
00252300 
00252400 
00252500 
00252600 
00252700 
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LOG 


OBJECT CODE 


ADDRl 


ADDR2 


STHT 


SOURC 


E STATE 


HENT 


002B2C 












2766+IHB0063A DS 


OH 


002B2C 


0A23 










2767+ 




SVC 


35 ISSUE SVC 


002B2E 


98DF 


6 000 






00000 


2768 




LH 


13,15,0(6) RES 


002B32 


47F0 


FA18 






02B60 


2769 




B 


PANEL 


002B36 


90DF 


E4A0 






035E8 


2770 


ILEGLN 


STM 


13tl5,MACREGSV SAV 


002B3A 


4160 


E4AG 






035E8 


2771 




LA 


6t^ACREGSV SAV 


002B3E 


4100 


E458 






035A0 


2772 
2773 




LA 

WTO 


13,SAVEAREA GIV 
•ILLEGAL LENGTH* 


002B42 


0700 










2774+ 




CNOP 


0,4 


002B44 


4510 


FA12 






02B5A 


2775+ 




BAL 


ltIHB0064A BRANCH A 


002B4B 


0012 










2776+ 




DC 


AL2(IHB0064-*) MESS 


002B4A 


0000 










2777+ 




DC 


B '0000000000000000 • 


002B4C 


C9D303C5C7C1D340 




2778+ 




DC 


C« ILLEGAL LENGTH* H 


002B5A 












2779+ 


IHB0064 


EQU 


* 


002B5A 












2780+ 


IHB0064A DS 


OH 


002B5A 


0A23 










2781 + 




SVC 


35 ISSUE SVC 


002B5C 


98DF 


6000 






00000 


2782 




LM 


13,15,0(6) RES 


002B60 


181A 










2783 1 


^ANEL 


LR 


1,10 


002662 


1B17 










278 4 




SR 


lf7 


002B64 


4E10 


F3CB 






03510 


2?85 




CVO 


1,PAKT 


002868 


F352 


FA9F 


E3CD 


02BE7 


03515 


2786 




UNPK 


PNLWT0R+19(6),PAKT+ 


002B6E 


D300 


FAA4 


EFDO 


2BEC 


040 IB 


2787 




HVZ 


PNLWT0R+24C1),=C»0« 


002B74 


0200 


FAAE 


A 000 


02BF6 


00000 


2788 




MVC 


PNLWT0R+34(1) ,0(10) 


002B7A 


94 BF 


FAAE 




02BF6 




2789 




NI 


PNLWTDR+34,X»BF« 


002B7E 


DCOO 


FAAE 


EA14 


02BF6 


03B5C 


2790 




TR 


PNLWT0R+34C1),TRIE 


002B84 


4E90 


E3C8 






03510 


2791 




CVD 


9,PAKT 


002B88 


F352 


FABC 


E3CD 


02C04 


03515 


2792 




UNPK 


f>NLWT0R + 48(6),PAKT+ 


002B8E 


D300 


FACl 


EEDO 


02C09 


04018 


2793 




HVZ 


PNLWT0R+53( 1),=C»0« 


002B94 


9280 


FACD 




02C15 




2794 




HVI 


PNLWT0R+65,X»80« 


002898 


0200 


FACE 


FACD 


02C16 


02C15 


2795 




MVC 


PNLWT0R+66(1),PNLWT 


002B9E 


4990 


EE70 






03FB8 


2796 




CH 


9,=H«8* 


002BA2 


4720 


FA78 






02BC0 


2797 




BH 


WTORPNL 


002BA6 


1239 










2796 




LTR 


3,9 


002BA8 


4780 


FA78 






02BC0 


2799 




BZ 


WTORPNL 


002BAC 


4B30 


EE66 






03FAE 


2800 




SH 


3,=H«1» 


002 B BO 


4230 


FA60 






02BB5 


2801 




STC 


3,PANEL1+1 


O02RB4 


0200 


FAGD 


AOOO 


02C15 


00000 


2802 1 


PANEL 1 


MVC 


PNLWTOR+65(0) ,0(10) 


002BBA 


DC07 


FACD 


EA14 


02C15 


03B5C 


2803 




TR 


PNLWT0R+65{8),TRIE 


002BC0 


D731 


F314 


F314 


0245C 


245C 


2804 i 


t^TORPNL 


XC 


RQSTINtRQSTIN ZER 


002RC6 


90DF 


E4An 






035E8 


2805 




STM 


13,15,MACREGSV SAV 


002BCA 


4160 


E4A0 






035E8 


2806 




LA 


6,MACREGSV SAV 


002BCE 


41D0 


E458 






035A0 


2807 

2808 ^ 


PNLWTOR 


LA 

WTOR 


13,SAVEAREA GIV 
• I OP 

»,RQSTIN,50,WTECB 


0028D2 


0700 










2809+ 




CNOP 


0,4 


002^^04 


4510 


FAD'^ 






02C1E 


2810+PNLWTOR 


BAL 


1,IHB0065A BRANCH A 


002BD8 


32 










2811 + 




DC 


AL1(50) REPLY LENGT 


002BD9 


00245C 








2812+ 




DC 


AL3(R0STIN) REPLY A 


002BDC 


oooo; 


^31C 








2813+ 




DC 


A(WTECB) ECB ADORES 


OO2BE0 


C03D 










2814+ 




DC 


AL2(IHB0066-*) HESS 


002BE2 


oooc 










2815 + 
2816+ 




DC 

DC 


B • 0000000000000000 » 
C • I OP 


002RF4 


40094040404040^ 


'fO 




+ 






• MESSAGE 


002C1D 












2817+ IHB0066 


EQU 


* 


002C1E 












2818+IHB0065A OS 


OH 



TORE MACRO REGISTERS 

E NACRO REGS 

E ADDRESS TO XR 

E OS OUR SAVE AREA 



ROUND MESSAGE 
AGE LENGTH 

MCSFLAGS FIELD 
ESSAGE 



TORE MACRO REGISTERS 



5(3) 



F150CT70 10/28/71 



00252800 
00252900 
00253000 
00253100 
00253200 
00253300 



5(3) 



OR+65 



OUT REPLY AREA 
E MACRO REG 
E ADDRESS TO XR 
E OS OUR SAVE AREA 
LENGTH 



ROUND LIST 
H 

DDRESS 
S 

AGE LENGTH 
HCSFLAGS FIELD 
LENGTH 



INST 



00253400 
002 53500 
00253600 
002 53700 
00253800 
00253900 
00254000 
00254100 
00254200 
00254300 
00254400 
00254500 
00254600 
00254700 
00254800 
00254900 
00255000 
00255100 
00255200 
002 55300 
00255400 
00255500 
00255600 
00255700 
00255800 
00255900 
X00256000 
00256100 



INST 
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L. 4-> w 



5JECT CODE 



A DDR I 



JDR2 STMT 



SOURCE STATEMENT 



F130CT70 iO/28/71 



002Clfc 0M3 
002C20 980F 6000 
002C24 47FD F0E2 





2819+ 


SVC 


00000 


2820 


LM 


0222A 


28? 1 


B 



35 ISSUE ^TOR SVC 

13,15,0(6) RESTORE MACRO REGISTERS 

TESTAA 



00256200 
00256300 



ADDRESS CONVERSIOM SUBROUTIMES 



PAG! 
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LOC 


OBJECT CODE 


ADDRi 


ADDR2 


STMT 


SOURCE STATE 


MEHl 






F150CT70 


10/28/71 












2823 


■J, 












00256500 












2824 


* 


SUBROUTINE TO CONVERT A 


1401 ADDRESS TO / 


a 360 


ADDRESS 


00256600 












282 5 


* 












00256700 


002C28 


9200 


FB67 


02CAF 




2826 


CVAD43 


mi 


IXTMPfO 








00256800 


002C2C 


1857 








2827 




LR 


5,7 


LOAD SIHULATED 


CORE 


BASE INTO 5 


00256900 


002C2E 


4336 


0000 




00000 


282 8 


CVAD4A 


IC 


3t0(6) 


1000 •S ■* 100 'S 






00257000 


002C32 


5430 


EDFO 




03F38 


2829 




H 


3,=F'63' 


55r 






00257100 


002C36 


8930 


0001 




00001 


2830 




SLL 


3,1 


* 






00257200 


002C3A 


4A53 


E6F4 




0383C 


2831 




AH 


5,TBHNTH(3y 


* 






00257300 


002C3E 


4336 


0002 




00002 


2832 




IC 


3,2(6} 


4000 «S + I'S 






00257400 


002C42 


5430 


EDFO 




03F38 


2833 




N 


3,=F»63* 


* 






00257500 


002C46 


8930 


0001 




00001 


2834 




SLl 


3,1 


* 






00257600 


002C4A 


4A53 


E7/4 




038BC 


2835 




AH 


5,TBT4UN{3I 


* 






00257700 


002C4e 


4336 


0001 




00001 


2836 




IC 


3,1(6) 


10»S 






00257800 


002C52 


5430 


EOEO 




03F28 


2837 




N 


3,=F'15» 


« 






00257900 


002C56 


8930 


0001 




00001 


283 8 




SLL 


3,1 


* 






00258000 


002C5A 


4A53 


E7F4 




0393C 


2839 




AH 


5,TBTENS(3) 


* 






00258100 


002C5E 


9130 


6001 


0000 I 




2840 




TN 


1{6J,X»30» 


0/ INDEXING 






00258200 


002C62 


4780 


FB52 




02C9A 


2841 




BE 


CvAD4D 


NO, DONE 






00258300 


002C66 


9501 


FB67 


02CAF 




2842 




CLI 


IXTMP,1 


Q/ SECOND TIME 


THROUGH 


00258400 


002C6A 


4780 


FB52 




02C9A 


2843 




BE 


CVAD4D 


YES, DONE 






00258500 


002C6E 


9201 


FB67 


02CAF 




2844 




HVl 


IXTNP,! 


SET SECOND TIME INDICATOR 


002 58600 


002C72 


9130 


6001 


OGOOl 




2845 




TM 


1(6),X»30» 


0/ 1X3 






00258700 


002e76 


4710 


FB4A 




02C92 


2846 




BO 


CVAD4C 


1X3 






00258800 


002C7A 


9120 


6001 


0000 I 




2847 




TH 


1(6) ,X»20* 








00258900 


002C7E 


4710 


F842 




02C8A 


2848 




BO 


CVA04B 


1X2 






00259000 


002C82 


4160 


7057 




00057 


2849 




LA 


6,SIMC0R+87 


IXl 






00259100 


0O2C86 


47 FO 


FAE6 




02C2E 


2850 




B 


CVAD4A 








00259200 


002C8A 


4160 


705 C 




0005C 


2851 


CVAD4B 


LA 


6,SIHC0R+92 








00259300 


QOZCBE 


47F0 


FAE6 




02026 


2852 




B 


CVAD4A 








00259400 


002C92 


4160 


7061 




00061 


2853 


CVAD4C 


LA 


6,SIHC0R+97 








00259500 


002C96 


47F0 


FAE6 




02C2E 


2854 




B 


CVAD4A 








00259600 


002C9A 


5950 


ElBC 




03304 


2855 


CVAD40 


C 


5,SIMLrHn 


0/ IS ADDRESS ( 


GREATER THAN 15999 


00259700 


002C9E 


07C8 








2856 




8CR 


12,8 


NO, DONE 






00259800 


002CA0 


4B50 


EE96 




3FDE 


2857 




SH 


5,=H»16000» 


YES, SUBTRACT 


16000 




00259900 


002CA4 


07F8 








2858 




BR 


8 








00260000 


002CA8 










2859 


ADR360 


OS 


F 








00260 100 


002CA€ 










2860 


ADR 140 


DS 


CL3 








00260200 


002CAF 










2861 


IXTHP 


DS 


C 








00260300 


002CB0 










2862 


TENPl 


DS 


C 








00260400 


002CB1 










2863 


TEMP2 


OS 


C 








00260500 












2864 


* 












00260600 












2865 


* 


SUBROUTINE TO CONVERT A 


360 ADDRESS TO A 


1401 


ADDRESS 


00260700 












2866 


* 












00260800 


002CB2 


5850 


FB60 




02CAe 


2867 


CVAD34 


L 


5,ADR360 








00260900 


002CB6 


1B57 








2868 




SR 


5,7 


SUBTRACT SIHULATED ( 


:qre base 


00261000 


002CB8 


4140 


0000 




00000 


2869 




LA 


4,0 


4000 "S ZONE 






00261100 


002CBC 


5D40 


EE44 




03F8C 


2870 







4,=F»4000» 


* 






00261200 


002CC0 


8950 


0004 




00004 


2871 




SLL 


5,4 


* 






00261300 


002CC4 


1815 








2872 




LR 


1,5 


* 






00261400 


002CC6 


1854 








2873 




LR 


5,4 


lOOO'S ZONE 






00261500 


002CC8 


4140 


0000 




00000 


2874 




LA 


4,0 


* 






00261600 


002CCC 


5D40 


EE^8 




03F90 


2875 







4,=F'1000» 


* 






00261700 


002000 


8950 


0004 




00004 


2876 




SLL 


5,4 


* 






00261800 


002CD4 


1825 








2877 




LR 


2,5 


* 






00261900 



ADDRESS COMVERSIOM SUBROUTINES 
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LOC OBJECT CODE 



A.DDR1 ADDR? STMT 



SOURCE STATEMENT 



F150CT70 10/28/71 



002CD6 


1854 




002C08 


4140 


0000 


002CDC 


5D40 


EDF8 


002CE0 


165? 




002CE2 


4250 


FB64 


002CE6 


1854 




002CE8 


4140 


0000 


002CEC 


5D40 


FE4C 


002CF0 


4250 


FB65 


002CF4 


1641 




002CF6 


4240 


FB66 


002CFA 


910F 


FB64 


002CFE 


4750 


FB8E 


002002 


960A 


FB64 


002D06 


91 OF 


FB65 


00200A 


4750 


F6CA 


002D0E 


960A 


FB65 


002012 


910F 


F866 


002016 


0758 




002D18 


960A 


FB66 


0020 1 C 


07F8 





02CAC 

02CAC 

02CAD 

02CAD 
02CAE 

02CAE 





2878 


LR 


00000 


2879 


LA 


03F40 


2880 


D 




2881 


OR 


02CAC 


2882 


STC 




2883 


LR 


00000 


2884 


LA 


03F94 


2885 


D 


02CA0 


2886 


STC 




2887 


OR 


02CAE 


2888 


STC 




2889 


TM 


02006 


2890 


BC 




2891 


01 




2892 CVA03A 


TM 


02D12 


2893 


BC 




2894 


01 




2895 CVAD3B 


TM 




2896 


BCR 




2897 


01 




2898 


BR 



5,4 

4,0 

4,=F*100* 

5,2 

5, ADR 140 

5t4 

4t0 

4t=F«10* 

5, ADR 140+1 

4»1 

4 t ADR 140+2 

ADR140,K»0F» 

5tCVA03A 

A0R140,X*0A« 

ADR140+ltX»0F» 

5,CVAD3B 

ADR140+ltX»0A» 

ADR140+2fX«0F« 

5f 8 

ADR140+2,X«0A» 



100»S NUMERIC 



10»S NUI^ERIC 



Q/ IS HUNDREDS ZERO 

NO 

YES 

0/ 

NO 

YES 

0/ 

NOf 

YES 

RETI 



, ADD 8-2 BITS 

IS TENS ZERO 

, ADD 8-2 BITS 
IS UNITS ZERO 

RETURN 
t ADD 8-2 BITS 

URN 



00262000 
00262100 
00262200 
00262300 
00262400 
00262500 
00262600 
00262700 
00262800 
00262900 
00263000 
00263100 
00263200 
00263300 
00263400 
00263500 
00263600 
00263700 
00263800 
00263900 
00264000 



ROUTINES TO HELP UMIT RECORD OPERATIOKIS 
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LOC OBJECT CODE 

002D1E 90DF E4A0 
002D2 2 4160 E4A0 
002D26 41D0 E458 



002D2A 0700 

00202e 4510 FGOC 

002D30 0023 

002D32 0000 

002D34 C8C1D3E34040C940 

002D53 

002054 

002054 0A23 

002056 98DF 6000 

0020 5 A 07F8 

002D5C 9501 E1B4 032FC 

002060 4770 FC54 

002D64 900F E4A0 

002D68 4160 E4A0 

002D6C 41D0 E458 



ADDRl A DDR? 



:tht 



SOURCE STATEMENT 



002D70 
002D70 
002D74 
002076 
002D78 
002D92 
002092 
002092 
002D94 
002098 
002D9C 
0020A2 
00 2D A 8 
002DAE 
002DB2 
002DB6 
002DBA 

00 2D BE 
002DC2 
002DC6 
0020CA 
002DCC 
002DD0 
00 2DD4 
002008 
002DDA 
002DDE 
002DE2 
0020E4 
002DE8 
002DEC 
002DF2 
002DF8 
0020FC 



4510 FC4A 

00 IE 

0000 

09C5C1C440E3D9C9 



0A23 
98DF 
47F0 
DC4F 
D44F 
D64F 
41C0 
90DF 
4160 
4100 

4110 
4100 

58F0 
05EF 
98DF 
9440 
9630 
07F8 
98DF 
9201 
07Fe 
4130 
4550 
0283 
DC83 
90DF 
4160 



6000 
FA18 
EICA 
7001 
700 1 
7051 
E4A0 
E4A0 
E 4 5 8 

E694 
EICA 

1030 

6000 
7000 

7000 

6000 
E1B4 

E5B0 

FF7A 
E3D1 
E3D1 
E4A0 
E4A0 



£914 

E2C3 

PITA 



03312 

00001 

AArtn 1 



00000 
00000 



032FC 



70C9 03519 
EA14 03519 



035E8 
035E8 

035Aa 



02D54 



00000 



02D9C 
035E8 
035EB 
035A0 



02D92 



00000 
02B60 
03A5C 
0340B 
3312 
00051 
035E8 
035E8 
035A0 

0370C 

03312 
00030 

00000 



00000 



036F8 

030C2 
000C9 
03R5C 
035E8 
035E8 



2900 HALT WTO STivj 

2901 LA 

2902 LA 

2903 HLTWTO WTO 
2904+ CNOP 
2905+HLTWTQ BAL 
2906+ DC 
2907+ DC 
2908+ DC 
2909+IHB0067 EQU 
2910+IHB0067A DS 
2911+ SVC 

2912 LM 

2913 BR 

2914 READ CLI 

2915 BNE 

2916 STN 

2917 LA 

2918 LA 

2919 WTO 
2920+ CNOP 
2921+ BAL 
2922+ DC 
2923+ DC 
2924+ DC 
2925+1HBD068 EQU 
2926+1HB0068A DS 
2927+ SVC 

2928 LM 

2929 B 

2930 READ2 TR 

2931 HC 



2933 
2934 
2935 
2936 
2937 

2938 + 

2939 + 
2940+ 
2941 + 
2942 
2943 
2944 
2945 
2946 
2947 
2948 

2949 V^RITE 

2950 

2951 

2952 

2953 

2954 



LA 



BR 



EOC 



STM 

LA 

LA 

GET 

LA 

LA 

L 

BALR 

LH 

IMI 

01 

LM 

mi 

BR 

LA 

BAL 

MVC 

TR 

STH 

LA 



SAVE BASE REGISTERS 
ADDRESS TO XR 
OS OUR SAVE AREA 
, B • 



13f I5,HACkEGSV 

6fMACREGSV SAVE 

13tSAVEAREA GIVE 

•HALT I , A 

0,4 

ltIHB0067A BRANCH AROUI^D HESSAGE 

AL2{ IHB0067~*) HESSAGE LENGTH 

B» 0000000000000000* NCSFLAGS FIELD 

C*HALT I , A , B • HESSAGE 

OH 

35 ISSUE SVC 

13tl5,0C6) 

6 

CRDE0F,X»01» 

REA02 

13,15,MACREGSV 

6tHACREGSV 

13,SAVEARFA 

•READ TRIED AFTER LAST CARD* 

0,4 

1,IHB0068A BRANCH AROUND MESSAGE 

AL2{IHB0068-*) MESSAGE LENGTH 

B»0000000000000000« MCSFLAGS FIELD 

C'READ TRIED AFTER LAST CARD* NESSAGE 

OH 

35 ISSUE SVC 

13,15,0(6) RESTORE HACRO REGISTERS 

PANEL TAB 71110 

TMPARA{80),TRE1 CHANGE EBCDIC TO INTERNAL 1401 CODE 

SIMC0R+1(80),WH256 REMOVE CARD AREA INFO, KEEP WD HKS 



F150CT70 10/28/71 

00264200 
00264300 
00264400 
00264500 



RESTORE HACRO REGISTERS 

RETURN TO HALT ROUTINE 
HAVE WE READ LAST CARD 
BRANCH IF NO 
SAVE HACRO REGS 
SAVE ADDRESS TO XR 
GIVE OS OUR SAVE AREA 



CTMrnoj-t I on \ TMris 

12,SIMC0R+81 

13,15,MACREGSV S 

6,MACREGSV S 

13,SAVEAREA G 

CARD,THPARA R 

1,CAR.D LOAD PARAM 

0,TMPARA LOAD ^AR 

15,48(0, 1) LOAD G 

14,15 LINK TO GET 

13,15,0(6) K 

SIHC0R,X«40» 

SIMC0R,X»30» 

8 

13,15,0(6) 

CRDE0F,X»01» 

8 

3,PRNT0CB 

5,UR0PEN 

^RNTBUFF+i(132),S 



AVE MACRO REGS 

AVE ADDRESS TO XR 

IVE OS OUR SAVE AREA 

PAD CARD 

ETER REG 1 

AHETER REG 

ET ROUTINE ADDR. 

ROUTINE 
ESTORE MACRO REGISTERS 

SET BA BITS IN LOC AFTER READ 

* 

RESTORE SIMULATOR REGISTERS 
SET CARD EOF INDICATOR 



GET ADDR OF PRINT 
GO CHECK FDR OPEN 
I M COR +2 01 
PRNTBUFF+1(132) ,TRIE 

SAVE MACRO REG 
SAVE ADDRESS TO XR 



DCB 



TAB 
TAB 
TAB 



00264600 
00264700 
00264800 
00264900 
00265000 
00265100 
00265200 
00265300 



00265400 
00265500 
00265600 
00265700 

00265900 
00266000 
00266100 
00266200 
00266300 



13,15,MACREGSV 
6,MACREGSV 



00266400 
00266500 
00266600 
00266700 
00266800 
00266900 
00267000 
00267100 
00267110 
00267120 
00267200 
00267300 
00267400 
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LOC OBJECT CODE 



002E00 4100 E458 



002E04 


4110 


E5B0 


002E08 


4100 


E3D0 


00?EOC 


58F0 


1030 


002E10 


05EF 




00?E12 


980F 


6000 


002E16 


9078 


FE9C 


002E1A 


9180 


E300 


002E1E 


4710 


FD40 


002E22 


9501 


E3D0 


002E26 


4780 


F0F4 


002E2A 


1777 




002E2C 


4370 


E3D0 


002E30 


8870 


0003 


002E34 


5880 


FEOC 


002E38 


0670 




002E3A 


1277 




002E3C 


4740 


FDFO 


002E40 


4188 


0001 


002E44 


5980 


FE08 


002E48 


4720 


FD28 


002E4C 


9500 


8000 


002150 


4780 


FCFO 


002E54 


9200 


EiA7 


002E58 


9200 


E1A8 


002E5C 


95F9 


8000 


002E60 


4780 


FD30 


002E64 


9550 


8000 


002E68 


4780 


F038 


002660 


47F0 


FCFO 


002E70 


5880 


EE20 


002E74 


47 FO 


FD04 


002E78 


9201 


E1A7 


002E7C 


47F0 


FCFO 


002E80 


9201 


E1A8 


002E84 


47F0 


FCFO 


002 E8 8 


95C9 


E3D0 


002E8C 


4780 


FDA2 


002E90 


95CB 


E3D0 


002 E94 


4780 


FDA2 


002E98 


95E1 


E300 


002E9C 


4780 


FDEO 


002EA0 


95E3 


E3D0 


002EA4 


4780 


FDEO 


002EAe 


9200 


E1A8 


002EAC 


9200 


E1A7 


002EB0 


1777 




002EB2 


4370 


E3D0 


002E86 


8870 


000 3 


00 2EBA 


5470 


EDEO 


002EBE 


5670 


EE50 


002EC2 


5970 


EE54 


002EC6 


4720 


FD8A 


002ECA 


4270 


FOB 5 



ADDRl ADDR2 

035A0 

036F8 
0351B 
00030 



STMT SOURCE STATENEMT 



03518 



03518 



00000 

032EF 

032F0 
00000 

00000 



032EF 

032F0 
03516 

03518 

03518 

03518 

032F0 
032EF 



00000 
02FE4 

02E88 

02F3C 

03518 
00003 

02F54 



02F38 
0000 1 
02F50 
02E70 

02E38 



2E78 

02E80 
02E38 
03F68 



02E38 
02E38 
02EEA 
02EEA 
02F28 
02F2S 



03518 
00003 

3 F 2 8 
03F98 
03F9C 
02ED2 

02EFD 



2955 

2956 

2957+ 

2958+ 

2959+ 

2960+ 

2961 

2962 COUNTER 

2963 

2964 

2965 

2966 

2967 

2968 

2969 

2970 

2971 DGll 

2972 

2973 

2974 

2975 

2976 

2977 0G14 

2978 

2979 

2980 

2981 

2982 

2983 

2984 

298 5 

2986 DGIO 



2988 
2989 
2990 
2991 
2992 
2993 
2994 
2995 
2996 
2997 
2998 
2999 
3000 
3001 
3002 
3003 
3004 
3005 
3006 
3007 
3008 
3009 



DG12 



DG13 



DGl 



La 

PUT 

LA 

LA 

L 

BALR 

LM 

SIN 

TH 

BO 

CLI 

BE 

XR 

IC 

SRL 

L 

BCTR 

LTR 

BN 

LA 

C 

BH 

CLI 

BE 

NVI 

MVI 

CLI 

BE 

CLI 

BE 

B 

L 

n 

O 

mi 

B 

MVI 

B 

CLI 

BE 

CLI 

BE 

CLI 

BE 

CLI 

BE 

mi 

MVI 

XR 

IC 

SRL 

N 



C 

BH 

STC 



13»SaVEAREA 

PRMTOCBrPRN 

ItPRNTDCB L 

0,PRNTBUFF 

15,48(0,1) 

14,15 LINK 

13,15,0(6) 

7,8,DGSAVE 

PRNTBUFF,X» 

DGl 

PRNT6UFF,X* 

DGEXIT 

7,7 

7,PRNTBUFF 

7,3 

8,DGCUR 

7,0 

7,7 

0G4 

8,1(8) 

8,DGEND 

DGIO 

0(8),X»00» 

DGIl 

PRTP9,X»00» 

PRTP12,X»00 

0(8) ,X»F9» 

DGl 2 

0C8),X»50» 

DG13 

DGll 

8,=A{CARTAB 



GIVE OS OUR SAVE AREA 
TBUFF 

OAO PARAMETER REG 1 
LOAD PARAMETER REG 
LOAD PUT ROUTINE ADDR. 
TO PUT ROUTINE 

RESTORE MACRO REGISTERS 

80* IS IT SKIP TO CHAN 

YES 
01» IS IT MO AUTO SPACE 



F150CT70 10/28/71 

00267500 
00267600 



PRTP9,X»01» 

DGll 

PRTP12,X»01» 

DGll 

PRNTBUFF,X«C9» 

DG2 

PRNTBUFF,X»CB« 

DG2 

PRNTBUFF,X«E1« 

DG3 

PRNTBUFF,X»E3' 

D63 

PRTP12,X»00« 

PRTP9,X»00» 

7,7 

7,PRNTBUFF 

7,3 

7,=F»15» 

7,=F»240» 

7,=F«249» 

DG8 

7,DG6+1 



SUBT ON FROM NO. OF SPACES 

IS NO. OF SPACES LESS THAN ZERO 

YES-CLEAN UP AND EXIT 

IS NO. OF SPACES LESS THAN ZERO 

YES-CLEAN UP AND EXIT 

NO PUNCH IN CARRIAGE TAPE 

BLANK-KEEP TRYING 

NOW BLANK 

IS IT NINE PUNCH 

YES 

IS IT 12 PUNCH 

YES 

NO-LOOK FOR NEXT PUNCH 
POINT TO FRONT OF TABLE 

SET CHAN 9 SWITCH 

SET CHAN 12 SWITCH 

CHAN 9 AFTER 
CHAN 9 IMMED 

CHAN 12 AFTER 

CHAN 12 IMMED 

CLEAR 12 
CLEAR 9 



00267700 
00267800 
00267900 
00268000 
00268100 
00268200 
00268300 
00268400 
00268500 
00268600 
00268700 
00268800 
00268900 
00269000 
00269100 
00269200 
00269300 
00269400 
00269500 
00269600 
00269700 
00269800 
00269900 
00270000 
00270100 
00270200 

00270400 
00270500 
00270600 
00270700 
00270800 
00270900 
00271000 
00271100 
00271200 
00271300 
00271400 
00271500 
00271600 
00271700 
00271800 
00271900 
00272000 
00272100 
00272200 
00272300 
00272400 
00272500 
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LOC OBJECT CODE 



ADDR.1 A0DR2 STMT 



SOURCE STATEMENT 



F150CT70 10/28/71 



002ECE 
002ED2 
002ED6 
002EDA 
002F0E 
002EE2 
002EE6 
002EEA 
002EEE 
002EF2 
002 EF6 
002EF8 
002EFC 
002F00 
002F04 
002F08 
002F0C 
002F10 
002F14 
002F1B 
002F1C 
002F20 
002F24- 
d02F2 8 
002F2C 
D02F30 
002F34 
002F38 
002F3C 
002F40 
002F44 
002F4A 
002 F4E 
002F50 
002F54 
002F58 
002F5E 
002F93 
002F94 
002FF2 
002FE2 
002FE4 
002FEC 
002FF0 
002FF4 
002FFR 

002FFE 
003000 
003004 
003006 
003008 
00302 E 
00302 E 
00302 E 



02EF6 
03FA0 
02EE2 

02EF6 

02EF6 



47F0 FDAF 

5970 EE5 8 

4780 FD9A 

9260 FDP5 02EFD 

47F0 FOAE 

92F0 FDB5 02EF0 

47F0 FDAE 

9201 E1A7 032EF 

9200 ElAB 032F0 

92F9 FDB5 02EFD 

1777 

5880 FEOC 02F34 

95FF 8000 00000 

4780 FDFO 02F38 

4177 0001 00001 

5970 EE5C 03FA4 

4720 FEA4 02FEC 

4188 0001 00001 

5980 FE0 8 02F50 

4720 FDD8 2F20 

47F0 FDB4 02EFC 

5880 EE20 03F68 

47F0 F0B4 02EFC 

9201 ' FiAB ' 032F0 

9200 E1A7 032EF 

9250 FDB5 02EFD 

47F0 FOAE 02EF6 

5080 FEOC 02F54 

9878 FE9C 02FE4 

9209 6300 03518 

D700 E3D1 E301 03519 03519 

41C0 7140 0014D 

07F8 

00002F99 

00002 F 58 

OOOOOOOOOOFl 

0000000000000000 

50 

0000000000000000 

0000 

0000000000000000 

90DF E4A0 35E8 

4160 E4A0 035E8 

4100 E458 C35A0 

D200 FEE5 FDB*^ 03020 02EFn 



0700 

4510 FEE6 
00 2 A 

0000 
E4D5C1C2D3C540E3 



0A23 



0302E 



3010 
3011 
3012 
3013 
3014 
3015 
3016 
3017 
3018 
3019 
3020 
3021 
3022 
3023 
3024 
3025 
3026 
3027 
3028 
3029 
3030 
303 1 
3032 
3033 
3034 
3035 
3036 
3037 
3038 
3039 
3040 
3041 
3042 
3043 
3044 
3045 
3046 
3047 
3048 
3049 



0G8 

DG9 

DG2 

DG7 

DG6 



DG5 
DG3 



DG4 
OGEXIT 



DGEND 
DGCUft 
CARTAB 



DC 

ENOCRTP EQU 



B DG7 

C 7,=F»250« 

BE DG9 

i^VI DG6^1tX*60» 

B DG7 

MVI DG6+1,X»F0» 

B DG7 

mi PRTP9,X«0I» 

MVI PRTP12fX»00« 

NVI DG6+1,X»F9« 

XR 7»7 

L 8,DGCUR 

CLI 0(S)tX»FF« 

BE DG4 

LA 7,1(7) 

7,=F»13B» 

BH DGERROR 

LA 8tl(8) 

C 8, DGEND 

BH DG5 

B DG6 

L 8, =A{ CARTAB) 

B DG6 

HVI PRTP12,X»01« 

NVr PRTP9^X»00« 

MVI DG6-»-l,X«50« 

B DG7 

ST StDGCUR 

LM 7,8,DGSAVE 

HVI PRNTBUFF,X»09» 

XC PRNTBUFF+ltPRNTBUFF+l 

LA 12,SlMC0R+333 SET 

o 

DC A( CARTAB +65) 

DC A (CARTAB) 

DC XL6« OOOOOOOOOOFl* 

DC 53X«00» 

DC X»50» 

78X»00» 



DGS 
DGE 



DG20 



3050 

3051 

3052 

3053 

3054 

3055 

3056+ 

3057+DG2 

3058 + 

3059 + 
3060+ 
3061+IHB 
3062+ IHB 
3063 + 



AVE 

RROR 



CHAM 9 SIGNAL 



LOOK FOR CHAM 



RESTORE SINGLE SPACE AFTER PRINT 
B ADDRESS REGISTER 



0073 
0073A 



DC 2FH)» 

STH 13,15,!HACREGSV 

LA 6,MACREGSV 

LA 13,SAVEAREA 

MVC DG20+45( 1),DG6+1 

WTO 'UNABLE TO FIND CARRIAGE CONTROL CHAR • 

CNOP 0t4 

BAL 1,IHB0073A BRANCH AROUND MESSAGE 

DC AL2(IHB0073-^) MESSAGE LENGTH 

DC B»0000000000000000» MCSFLAGS FIELD 

DC C»UNABLE TO FIND CARRIAGE CONTROL ChAR • MESSAGE 

EOU * 

DS OH 

SVC 35 ISSUE SVC 



00272600 
00272700 
00272800 
00272900 
00273000 
00273100 
00273200 
00273300 
00273400 
00273500 
00273600 
00273700 
00273800 
00273900 
00274000 
00274100 
00274200 
00274300 
00274400 
00274500 
00274600 
00274700 
00274800 
00274900 
00275000 
00275100 
00275200 
00275300 
00275400 
00275500 
00275600 
00275700 

00275900 
00276000 
00276100 
00276200 
00276300 
00276400 
00276500 

00276600 
00276700 
00276800 
00276900 
00277000 
00277100 
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LOC OBJECT CODfc 



ADDRl ADDR2 STMT 



SOURCE SIATEHEMT 



F1S0CT70 10/28/71 



003030 98DF 6000 

003034 47F0 F810 

003038 4130 E634 

00303C 4550 FF7A 

003040 D24F E26B 7065 033B3 00065 

003046 DC4F E26B EA14 03383 03B5C 

00304C 90DF F4A0 035E8 

003050 4160 E4A0 035E8 

003054 41D0 E458 035A0 



0377C 

03362 
00030 



00000 

000B5 

E21B E26B 03363 033B3 

03362 

00064 

00064 



003058 


4110 


E634 


00305C 


4100 


E21A 


003060 


58F0 


1030 


003064 


05EF 




003066 


98DF 


6000 


00306A 


41C0 


70B5 


00306E 


D24F 


E21B 


003074 


9201 


E21A 


003078 


9440 


7064 


00307C 


960A 


7064 


003080 


07F8 




003082 






003082 


07F8 




003084 






003084 


9110 


3030 


003088 


4718 


0000 


00 30 8 C 


900F 


E4A0 


003090 


4160 


E4A0 


003094 


41D0 


E45B 


003098 






003098 


4510 


FF58 


00309C 


00000000 


0030A0 


5031 


0000 


0030A4 


9280 


1000 


0030A8 


0A13 




0030AA 


98DF 


6000 


0030AE 


9110 


3030 


0030R2 


0718 




0030B4 






003034 






003034 


47F0 


FF74 


0030B8 


80 




0030B9 


0003 E 8 


0030BC 


5810 


FF70 


0030C0 


OAOfJ 




0030C2 


9110 


3030 


0030C6 


0715 




0030C8 


90DF 


E4A0 


0030CC 


4160 


E4A0 


00 30 DO 


41D0 


E45B 


0030D4 







00000 3064 LM 

02958 3065 B 
0377C 3066 PUMCH LA 

030C2 3067 BAL 

3068 MVC 

3069 TR 

3070 STH 

3071 LA 

3072 LA 

3073 PUT 
3074-f- LA 
3075+ LA 
3076+ L 
3077+ BALR 

3078 LM 

3079 LA 

3080 MVC 

3081 MVI 

3082 HI 

3083 01 

3084 BR 

3085 BIK^NOD ECU 

3086 LOADED BR 

3087 TSTOPEN FOU * 
00030 3088 TH 

00000 3089 BO 

035 E8 3090 STN 

035e8 3091 LA 

035A0 3092 LA 

3093 OPEN 

3094+ CNOP 

030A0 3095+ BAL 

3096+ DC 

00000 3097+ ST 

00000 3098+ MVI 

3099+ SVC 

00000 3100 LM 

00030 3101 TM 

3102 BCR 

3103 ABEMD 
3104+ OS 
3105+ CNOP 

0303C 3106+ B 

3107+ DC 

3108+ DC 

030B8 3109+ L 

3110+ SVC 
3111 ^ 
00030 3112 UROPEN TN 

3113 BCR 

035F8 3114 STM 

035E8 3115 LA 

035 AO 3116 LA 

3117 OPEM 

3118+ CNOP 



GET ADDR OF PUNCH 
GO CHECK FOR O^EN 
CONVRT 1401 PCH AREA FOR 



SAVE 
SAVE 
GIVE 



NACRO REGS 
ADDRESS TO XR 
OS OUR SAVE AREA 



13,15t0(6) 

TERM! NAT 

3rPUNCHR 

5tUR0PFN 

PCHARA,SIHC0H+i01 

PCH AR A, TRIE 

13,15tHACREGSV 

6,MACREGSV 

13tSAVEAREA 

PUNCHR,PCHARAA 

ItPUNCHR LOAD PARAMETER REG 1 

OtPCHARAA LOAD PARAMETER REG 

15,48(0*1) LOAD PUT ROUTINE ADDR. 

14,15 LINK TO PUT ROUTINE 

13,15,0(6) RESTORE HACRO REGISTERS 

12,SINC0R+181 

PCHARlfPCHARA 

PCHARAA,X«01» 

SIMC0R+100,X»40» 

SIMC0R+100,X«0A« 



DCB TAB 
TAB 
OUTPUT TA! 



SET 82 BITS IN LOC 100 AFTER PUNCH 



8 

48(3) ,X»10» 
0(8) 

13,15,MACREGSV 

6,HACREGSV 

13,SAVEAREA 

({3), INPUT) 

0,4 

l,*+8 LOAD REGl W/LIST ADDR, 



3,0( 

0( 1) 

19 I 

13,1 

43(3 

1,8 

1000 

OH 

0,4 

*+8 

ALU 

AL3( 

1,*- 

13 L 



1,0) STORE INTO LIST 
,128 MOVE IN OPTION BYTE 
SSUE OPEN SVC 
5,0(6) 

),X»10' IS DCB OPEN 

YES, RETURN 
,DUHP NO, DCB DID 



BRANCH AROUND CONSTANT 
128) DUMP/STEP CODE 
1000) CQHPLETION CODE 
4 LOAD CODES INTO REG 1 
INK TO ABEND ROUTINE 



NOW? 

TO CALLER 

NOT OPEN, 



TAB 
TAB 
ABEND TAB 



48(3),X»10» 

U5 

13,15,MACREGSV 

6,HACkEGSV 

13,SAVEAREA 

((3) , OUTPUT) 

0,4 



IS THE DCB OPEN? 
YES, EXIT 

SAVE REGS FOR MACRO 
SAVE ADDR OF SAVE AREA 
GET ADDR OF HEM SAVE AREA 
OPEN U/R OUTPUT 



00277200 
00277300 
00277400 
00277410 
00277420 
00277500 
00277600 
00277700 
00277800 
00277900 



00278000 
00278100 
00278200 
00278300 
00278400 
00278500 
00278600 
00278700 
00278800 
00278900 
00279000 
00279100 
00279200 
00279300 
00279400 
00279500 



00279600 
00279700 
00279705 
00279710 





00279715 


TAB 


00279720 


TAB 


00279725 


TAB 


00279730 


TAB 


00279735 


TAB 


00279740 


TAB 


00279745 
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LOG OBJECT CODE 



ADDRl aDDR2 STMT 



SOURCE STATEMENT 



E150CTT0 10/28/71 



0030D4 
003008 
0030DC 
0030E0 
0030E4 
00 30 E 6 
0030EA 
0030EE 



4510 FF94 
00000000 
5031 0000 
928F 1000 
0A13 

98DF 6000 
9110 3030 
0715 



0030F0 

0030F0 

0O30F0 47F0 FFBO 

0030F4 80 

0030F5 0003E9 

0030F8 5810 FFAC 

0030FC OAOO 



00000 



00030 



030 DC 



00000 



00000 



30F8 



030F4 



3119+ 


BAL 


l,*^+8 LOAD REGl l^/L 1ST ADDR. 




3120 + 


DC 


A(0) OPT BYTE AND DCB ADDR. 




3121 + 


ST 


3,0(1,0) STORE INTO LIST 




3122 + 


MVI 


0(l)tl43 MOVE !N OPTION BYTE 




3123+ 


SVC 


19 ISSUE OPEN SVC 




3124 


m 


13,15,0{6> RELOAD BASE 


REGS 


3125 


TM 


48{3},X»10» DID THE DCB 


OPEN 


3126 


BCR 


1,5 YESt EXIT 




3127 


ABEND 


1001, DUMP NO, DCB NOT 


OPEN 


3128+ 


DS 


OH 




3129+ 


CNOP 


0,4 




3130+ 


b"'" 


*+8 BRANCH AROUND CONSTANT 




3131 + 


DC 


AL1(128) DUMP/STEP CODE 




3132+ 


DC 


AL3(1001) COHPLETION CODE 




3133 + 


L 


l,=^-4 LOAD CODES INTO REG 1 




3134+ 


SVC 


13 LINK TO ABEND ROUTINE 





OK? 



ABEND 



TAB 


00279750 


TAB 


00279755 


TAB 


00279760 


TAB 


00279765 



ROUTINES TO HELP TAPE OPERATIOfslS 
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LOC OBJECT CC:DE 



ADDRl ADDR2 STMT 



SOURCE STATEMENT 
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OOBOFE 
003100 
0D3I06 
0031QA 
00310E 
003112 
003114 
003116 
0031 IB 
00311C 
003120 
003126 
003 12 A 
00312E 
003132 
003136 
00313A 
00313C 
00313E 
00314 2 
003146 
00314A 
003 14 E 
003152 
003156 
003158 
00315E 
003162 
003166 
00316A 
00316A 
00316E 

i«fc rt -n- 1 -Tf nt 

UU 31 f ^ 

003176 
0031 7A 
00317E 
003182 
003186 
003 18 A 
0031 8E 
003190 
003194 
003196 
00319A 
00319E 

0031A2 
0031A4 
0031A8 
0031AC 
0031B0 
0031B4 
0031B6 
00 31 B A 



i86C 
DDFF 
4760 
4166 
47F0 
1861 
1B6C 
07F8 
4130 
4140 
0500 
4780 
4144 
4630 
47F0 
4160 
1B63 
1836 
8930 
5 A 30 
5833 
9200 
94 3 F 
9242 
07FP 
D206 
957F 
4780 
9201 

9101 
4780 

4040 
5840 
920F 
9201 

9200 
9102 
0788 

9201 
07F8 
90EF 
4160 
41D0 



6000 EB54 
FFCA 
0100 
FFB8 



00000 



OOOA 
F53C 
A 00 3 
FFEE 
0004 
FFDS 
F994 
OOOA 



0003 
EE60 

0004 
F930 
3000 
F910 

E4E9 
F930 
E022 
E1A9 

E4EC 
E03E 
c tr "? o 
E4EE 
EICO 
4000 
ElAA 
E1A9 
E4EC 

E1A9 

E4A0 
E4A0 
E45 8 



0700 
4510 E064 

00000000 
5041 0000 



4003 00003 



F919 



02A7e 
00000 

n2A5B 

03631 
02A7B 

032F1 

3634 



00000 
032F2 

032F1 

03634 

032F1 



03C9C 
03112 

00100 
03100 



0000 A 
02684 
00003 
03136 
00004 
03120 
02 ADC 
OOOOA 



00003 
03FA8 
00004 



02A61 



0316A 



03186 

rt -If- r' rs 
Kj or c u 

3636 

03308 



9280 
0A14 
9&EE 
4 7F0 



1000 

6000 
E076 



'0000 



035E8 
035Ee 
035A0 



031 AC 
00000 



00000 
031BE 



3136 FNDLNG LR 

3137 FNOLGA TRT 

3138 BC 

3139 LA 

3140 B 

3141 FNDLGB LR 

3142 SR 

3143 BR 

3144 FNDRIV LA 

3145 LA 

3146 FNDRVl CLC 

3147 BE 

3148 LA 

3149 BCT 

3150 B 

3151 FNDRV2 LA 

3152 SR 

3153 LR 

3154 SLL 

3155 A 

3156 L 

3157 HVI 

3158 HI 

3159 MVI 

3160 BR 

3161 TPTEST HVC 

3162 CLI 

3163 BE 

3164 HVI 

3165 TPT103 EQU 

3166 TN 

3167 BZ 

-i 1 ^ C t Lf 

^ 1. O O L ! ! 

3169 STH 

3170 L 

3171 MVI 

3172 MVI 

3173 TPTIOl MVI 

3174 TM 

3175 BCR 

3176 TPTI02 MVI 

3177 BR 

3178 RWUCLOSE STM 

3179 LA 

3180 LA 

3181 CLOSP 
3182+ CNOP 
3183+ BAL 
3184+ DC 
3185+ ST 
3186+ MVI 
3187+ SVC 
3188 LH 
318 9 B 



6f 12 

0C256, 

6,FN.DL 

6t256( 

FNDLGA 

6,1 

6 1 12 

8 

3»10 

4,TPTB 

3(1,10 

FN0RV2 

4,4C4) 

3,FNDR 

ILEGTA 

6,10 

6,3 

3,6 

3,3 

3,=A(T 

3,4(3) 

TMECB, 

0(3), X 

TI^IOB, 

8 

SAVCSN 

THECB, 

TPTI03 

TPERR, 



6 ) iTRGPWH 

GB 

6) 



SCAN FOR GP HK — WD MK 
FOUMD 



CALCULATE LENGTH 



L 
),3(4) 



VI 



APADR) 



•3F» 

X»42» 



TAPE NOT DEFINED, SEND ERROR MESSAGE 



MULTIPLY LOGICAL DRIVE NUHBER BY 8 
ADD BASE OF TAPE ADDRESS TABLE 

GET ACTUAL TAPE ADDRESS FROM TABLE 

CLEAR ECB BEFORE EXCP 

CLEAR DCB EXCEPTION BITS 

SET lOB CMD CHAIN + UMRELATED BITS 



+1(7) ,TPCSW 
X » 7F • 



SAVE CSW AFTER TAPE OPERATION 



SAVCSy+4,1 
TPTIOl 



-^ , =H » i 

4,SAVC 

4, TAPE 

0(4), X 

TPEOF, 

TPERR, 

SAVCSW 

8,8 

TPERR, 

8 

14,15, 

6,MACR 

13,SAV 

( (^)) 

0,4 

l,* + 8 

A(0) 

4,0(1, 

( 1 ) , 1 

20 ISS 

14,15, 

NXTOP 



SW-+6 

AREA 

•OF* 

1 



+4^2 



MACREGSV 

EGSV 

EAREA 



Q/ EOF 



PUT TAPE MARK CHARACTER IN TAPE AREA 



0/ TAPE ERROR 



SAVE BASE REGISTERS 



CLOSE THE DCB 



BRANCH AROUND LIST 
PTION AND DCB ADDRESS 
0) STORE DCB ADDRESS 
26 HOVE m OPTION BYTE 
UE CLOSE SVC 
0(6) 



00279900 
00280000 
00280100 
00280200 
00280300 
00280400 
00280500 
00280600 
00280700 
00280800 
00280900 
00281000 
00281100 
00281200 
00281300 
00281400 
00281500 
00281600 
00281700 
00281800 
00281900 
00282000 
00282100 
00282200 
00282300 
00282400 
00282500 
00282600 
00282700 
00282800 
00282900 
00283000 

00283200 
00283300 
00283400 
00283500 
00283600 
00283700 
00283800 
00283900 
00284000 
00284100 
00284200 
00284300 
00284400 



00284500 
00284600 



ROUTINE TO BRANCH TO 



Lu 



DE 



ADDRl 



0031 BE 
003 ICO 
0031C4 
003 1C8 
0031CC 
0031D? 
003104 
003 106 
0031DA 
003 IDE 
0031 E2 
0031E6 
0031E8 
0031EC 
0031F0 
0031F4 
0031F8 
0031FC 
003200 
003204 
00320 8 
00320C 
003210 
003214 
003218 
00 32 10 
003220 
003224 
00322 8 
00322C 
003230 

0032 34 
003238 
00 32 30 
003240 
003244 
003248 
003?4C 
003230 
003254 
003258 
00325C 
003260 
003264 
003268 
00 326 C 
003270 
003274 
003278 
00327C 
003260 



AOOO 
F9C0 
00 FA 
A 001 



0000 
ED FO 
0002 

EOAO 



1AA9 

9140 

4780 

411 A 

00F9 

1891 

1B9A 

432A 

5420 

8920 

58D2 

07F0 

00002B08 

0000142A 

0000 14Ae 

00001566 

00001458 

0000147C 

00001598 

000015C^ 

000031 BE 

0000 31 BE 

00002B08 

0000 1B4C 

00001800 

0000 2 BOS 

00002B08 

00002608 

0000 2 BO 8 

0000099E 

00000000 

00002608 

0000174^4 

0000064C 

0000 20 F6 

000031BE 

00000 EFF 

00000DB8 
00002B08 
00000 AOE 
0000196C 
00002^^08 
0000 2 BO 8 
00002B08 
00002B08 
00002B0B 
00001 5FE 
00000F42 
00000AD2 
0000 31 BE 
00002808 



00000 



F814 00001 



NEXT C! 


PCODF 


PROCESSING 


ROUT I ME 


A DDR 2 


ST^^T 


SOUR 


CE STATEMENT 




3191 


T- 








3192 


^ 


THIS 


SECTION EXAMINES 




3193 


* 


BRAh 


ICHES TO THE PRQPE 




3194 


* 








3195 


NXTOP 


AR 


10,9 




3196 




Tl^ 


! 0C10)rX»40» 


02B08 


3197 




BZ 


ILEGOP 


000 FA 


3198 




LA 


1,250(10) 


0395C 


3199 




TRT 


1(250,10), TRT 




3200 




LR 


9,1 




3201 




SR 


9,10 


00000 


3202 




IC 


2,0(10} 


03F38 


3203 




N 


2,=F»63* 


00002 


3204 




SLL 


2,2 


031E8 


3205 




L 


13,BCHTBL{2) 




3206 




BR 


13 




3207 


BCHT8L 


DC 


A( ILEGOP) 




3208 




DC 


A(R) 




3209 




DC 


A(W) 




3210 




DC 


A(NR) 




3211 




DC 


A ( P ) 




3212 




DC 


A{RP) 




3213 




DC 


A(WP) 




3214 




DC 


A(WR») 




3213 




DC 


A (NXTOP) 




3216 




DC 


A(NXTOP) 




3217 




DC 


AC ILEGOP) 




3218 




DC 


A (MA) 




3219 




DC 


A(H) 




3220 




DC 


A( ILEGOP) 




3221 




DC 


A( ILEGOP) 




3222 




DC 


A( ILEGOP) 




3223 




DC 


AC ILEGOP) 




3224 




DC 


A(CS) 




322 5 




DC 


A (A) 




3226 




DC 


AC ILEGOP) 




3227 




DC 


A(CU) 




3228 




DC 


A(BW2) 




3229 




DC 


A(BBE) 




3230 




DC 


AC NXTOP) 




3231 




DC 


A(MZ) 




3232 




DC 


ACMCS) 




3233 




DC 


AC ILEGOP) 




3234 




DC 


ACSW) 




3235 




DC 


ACD) 




323^^ 




DC 


A( ILFGCP) 




3237 




DC 


AC ILEGOP) 




3238 




DC 


AC ILEGOP) 




3239 




DC 


A(ILEGOP) 




3 240 




DC 


A( ILEGOP) 




3241 




DC 


ACSS) 




3242 




DC 


A(LCA) 




3243 




DC 


AC MOW) 




3244 




DC 


A(NXTOP) 




3245 




DC 


AC ILEGOP) 
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F150CT70 10/28/71 



THE NEXT OPERATION CODE AND, BASED UPON IT, 
R ROUTINE TO PROCESS THE IMSTRUCTION, 



GET 

Q/ 
HO 



NEW OP CODE LOCATION 
IS THERE A WORD HARK 



GET 

EL IN 

MULT 

LOAD 

BRAN 



1 

2 

3 

4 

5 

6 

7 

10 

11 

12 

13 

14 

15 

16 

17 

•-V f\ 

21 
22 

23 
24 

25 
26 
27 
30 
31 
32 
33 
34 
35 
36 
37 
40 
41 
42 
43 
44 
45 
46 



OP CODE 

I NATE WORD MARK 

IPLY BY 4 

BASE OF PROCESSING ROUTINE 
CH TO OPCODE PROCESSING ROUTINE 



TP 

ft I 

M \ 
/ 

s 

T 

U 

V 

w 

X 
Y 

z 

f 

% 

WD 



HK 



SEP 



00284800 
00284900 
00285000 
00285100 
00285200 
00285300 
00285400 
00285500 
00285600 
00285700 
00285800 
00285900 
00286000 
00286100 
00286200 
00286300 
00286400 
00286500 
00286600 
00286700 
00286800 
00286900 
00287000 
00287100 
00287200 
00287300 
002B7400 
00287500 
00287600 
00287700 
00287800 
00287900 

r\r\'t aannn 

00288100 
00288200 
00288300 
00288400 
00288500 
00288600 
00288700 
00288800 
00288900 
00289000 
00289100 
00289200 
00289300 
00289400 
00289500 
00289600 
00289700 
00289800 
00289900 
00290000 
00290100 
00290200 



:OUTIME TO BRANCH TO NEXT OPCODE PROCESSING ROUTINE 
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LOG OBJECT CODE 



ADDRl A0DR2 



TMT 



SOURCE STATEMENT 
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003284 
003288 
003? 8 C 
003290 
003294 
003298 
00329C 
00 32 A 
0032A4 
0032A8 
0032AC 
6032B0 
0032B4 
0032B8 
0032BC 
0O32C0 
0032C4 
0032C8 
0032CC 
0032D0 
0032D4 
0032D8 
0032DC 
0032E0 
003264 



0000 ID 54 
0000 IC DC 
00002B08 
0000035 A 
00002B08 
00002B08 
00002 B08 
00002B08 
00002B08 
00002B08 
00000000 
000d03F0 
00000754 
00000ER6 
OOOOIOEC 
0000165A 
00002B08 
0000 IDOC 
00002B08 
000002C4 
00000896 
00000A76 
0000 2 BO 8 
0000 2608 
00002B08 



3246 


DC 


A(HCMI 


47 


P 


3247 


DC 


A(SAk) 


50 





3248 


DC 


A( ILEGOP) 


51 


R 


3249 


DC 


ACZS) 


52 


-0 


3250 


DC 


ACILEGOP) 


53 


$ 


3251 


DC 


A( ILEGOP) 


54 


# 


3252 


DC 


ACILEGOPI 


55 




3253 


DC 


ACILEGOP) 


56 




3254 


DC 


ACILEGOP) 


57 




3255 


DC 


AC ILEGOP) 


60 


+ 


3256 


DC 


A(A) 


61 


A 


32 57 


DC 


ACB) 


62 


B 


3258 


OC 


ACC) 


63 


C 


32 59 


DC 


AC MM) 


64 


D 


3260 


DC 


ACMCE) 


65 


E 


3261 


DC 


ACCC) 


66 


F 


3262 


DC 


AC ILEGOP) 


67 


G 


3263 


OC 


ACSBR) 


70 


H 


3264 


DC 


ACILEGOP) 


71 


I 


3265 


DC 


ACZA) 


72 


+ 


3266 


DC 


ACH) 


73 


• 


3267 


DC 


ACCW) 


74 




3268 


DC 


ACILEGOP) 


75 




3269 


DC 


AC ILEGOP) 


76 




3 270 


DC 


AC ILEGOP) 


77 





00290300 
00290400 
00290500 
00290600 
00290700 
00290800 
00290900 
00291000 
00291100 
00291200 
00291300 
00291400 
00291500 
00291600 
00291700 
00291800 
00291900 
00292000 
00292100 
00292200 
00292300 
00292400 
00292500 
00292600 
00292700 
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LOG OBJECT CODE 



ADDKl A DDR? STHT 



SOURCE STATEHENT 



0032ES 


00 


0032 E9 


00 


003? E A 


00 


0032EB 


00 


0032EC 


00 


0032 ED 


00 


0032EE 


00 


0032EF 


00 


0032F0 


00 


0032F1 


00 


0032F2 


00 


0032F3 


00 


0032F^ 


00 


0032 F 5 




0032F8 




0032FC 


00 


0032FD 


00 


0032FE 


00 


003300 




003304 


00000000 


00330 8 


00000000 


00330C 


00 


00330D 


00 


00 330 E 




00330F 


00 


003310 


00 


003311 


00 


003312 




003362 


01 


003363 


4040404040404-040 


0033B3 




003403 


4040404040404040 


00340B 


4040404040404040 


003510 




003518 




003518 


09 


003519 


4040404040404040 


0035A0 




0035E8 




003630 





3272 


SENSEA 


DC 


X»0« 


3273 


SENSEB 


DC 


K»0« 


3274 


SEMSEC 


DC 


X'O* 


3275 


SEMSED 


DC 


x»o« 


32 76 


SENSEE 


DC 


x»o» 


3277 


SENSEF 


DC 


x»o« 


3278 


SENSEG 


DC 


x«o» 


3279 


PRTP9 


DC 


x»o» 


3280 


PRTP12 


DC 


x»o« 


3281 


TPERR 


DC 


x»o» 


3282 


TPEOF 


DC 


x»o« 


3283 


OVRFLO 


DC 


x*o» 


3284 


€PR 


DC 


x«oo» 


3285 


DCHAR 


DS 


c 


3286 


LSTBCH 


DS 


F 


3287 


CROEOF 


DC 


x»oo* 


3288 


POSl 


DC 


x»o* 


3289 


AEND 


DC 


X»0' 


3290 


SAVB 


OS 


F 


3291 


SIMLIMIT DC 


F»0» 


3292 


TAPEAREA DC 


F»0« 


3293 


SUPRES 


DC 


X»00' 


3294 


RQSTND 


DC 


X • 00 » 


3295 


BCOTAP 


DS 


c 


3296 


PCHERR 


DC 


x»oo» 


3297 


RDRERR 


DC 


x»oo» 


3298 


PRTERR 


DC 


x»oo» 


3299 


TMPARA 


DS 


CL80 


3300 


PCHARAA DC 


X » 1 • 


3301 


PCHARl 


DC 


CL80* » 


3302 


PCHARA 


DS 


CL80 


3303 


JOBNANE DC 


CL8* • 


3304 


WM256 


DC 


256X*4G» 


3305 


PAKT 


DS 


D 


3306 




DS 


OF 


3307 


PRNT8UFF DC 


X»09« 


3308 




DC 


CL132* • 


3309 


SAVEAREA DS 


18F 


3310 


NACREGSV DS 


18F 


3311 


SAVCSW 


DS 


D 



RESET WHEN TESTED 
RESET WHEN TESTED 



TO HOLD ADDRESS OF LAST BRANCH 
CARD EMD-OF-FILE INDICATOR 



UPPER LIMIT QF SIMULATED CORE 
ADDRESS OF TAPE I/O BUFFER 
ZERO SUPPRESSION INDICATOR 
INDICATOR FOR OPERATOR REQUESTS 
INDICATOR FOR BCD TAPE MODE 
PUNCH ERROR INDICATOR 
CARD READ ERROR INDICATOR 
PRINTER ERROR INDICATOR 

NORHAL STACKER SELECT 

PUNCH OUTPUT AREA 
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00292900 
00293000 
00293100 
00293200 
00293300 
00293400 
00293500 
00293600 
00293700 
00293800 
00293900 
00294000 
00294100 
00294200 
00294300 
00294400 
00294500 
00294600 
00294700 
00294800 
00294900 
00295000 
00295100 
00295200 
00295300 
00295400 
00295500 
00295600 
00295700 
00295800 
00295900 
00296000 



00296200 
00296300 
00296400 
00296500 
00296600 
00296700 
00296800 



CHANNEL COHHAND WORDS 
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LOC OBJECT CODE 



ADDRl ADDR2 STNT 



SOURCE STATEMENT 



0D3638 
003640 
603648 
003650 
003658 
003660 
003668 
003670 
003678 
003680 
003680 
003681 
00368 5 
003688 
003690 
003694 
003698 
0036A0 



0036A4 
0036AC 
0036B4 
0036SC 
0036C4 
0036CC 
0036D4 
00360C 
0036E4 
0036EC 

A A -2 £. A C 

\J <U _i U M ^ 

0036A5 
0036AD 
0036A0 
0036B5 

0036B5 
0036BD 
0036BD 
0036C5 
0036C5 
0036CD 
0036C0 
003605 
003605 
0036DD 
0036DD 
00 36 E 5 
0036E5 
0036ED 
0036ED 
0036E6 



0300000 160Q0000I 
01000000 20000000 
0300000060000001 
0200000020004650 
0300000060000001 
02000000200046 50 
1F00000020000001 
0700000020000001 



02 

00000000 

0036A0 

0000000000000000 

0000 17F0 

00000000 

0000000000000000 

00000000 



000000000000401C 
0000000000004050 
0000000000004084 
00000000000040B8 
00000000000040EC 
0000000000004120 
0000000000004154 
0000000000004188 
000000000000418C 
00000000000041F0 

E3D7F0 

E3D7F1 
E3D7F2 
E3D7F3 
E307F4 
E3D7F5 
E3D7F6 
E3D7F7 
E3D7F8 
E3D7F9 



3313 


WTCCWl 


CCW 


X»03SltX»60»tl 


3314 


WTCCW2 


ccw 


1,0,.X*20S0 


3315 


LDTCCW 


ccw 


X'03S0tX»60Sl 


3316 


LOTCCW] 


I ccw* 


2tO,X»20S18000 


3317 


RTCCW 


ccw 


X«03S0,X«60S1 READ TAPE 


3318 


RTCCWl 


CCN 


2,0,X»20S18000 


3319 


yiHCCW 


ccw 


X»lF»,0rX«20»tl WRITE TAPE 


3320 


KWDCCW 


ccw 


X«07S0,X»20S1 REWIND 


3321 


REJURH 


DS 


F 


3322 


CUIOB 


OS 


00 


3323 




DC 


X*02» 


3324 




DC 


4X • 00 ♦ 


3325 




DC 


AL3(CUECB) 


3326 




DC 


8X • 00 • 


3327 




DC 


AL4(CUCCW) ADDR 


3328 


CUDC8 


DC 


F«0» 


3329 




DC 


8X«00« 


3330 


CUECB 


DC 


F«0» 


3331 


* 






3332 


^ 


THIS T/i 


iBLE EQUATES A 360 TAPE DRIVE 


3333 


♦ 


RESULT 


OF A TAS ENTRY. 


3334 


♦ 






3335 


TAPADR 


DC 


A(OtTAPEDCBO) 


3336 




DC 


A(OtTAPEDCBl) 


3337 




DC 


A(0fTAPE0CB2> 


3338 




DC 


A{0tTAPEDCB3) 


3339 




DC 


A(0,TAPEDCB4) 


3340 




DC 


A{0tTA£>E0CB5) 


3341 




DC 


A(0,TAPE0CB6) 


3342 




DC 


AC0,TAPE0CB7J 


3343 




DC 


AC0,TAPEDCB8) 


3344 




DC 


AC0,TAPEDCB9) 


3345 




ORG 


TAPADR4-1 


3346 




DC 


CL3«TP0» 


3347 




ORG 


TAPADR+9 


3348 




DC 


CL3»TP1* 


3349 




ORG 


TAPADR+17 


3350 




DC 


CL3»TP2» 


3351 




ORG 


TAPADR+25 


3352 




DC 


CL3»TP3» 


3353 




ORG 


TAPADR+33 


3354 




DC 


CL3«TP4« 


3355 




ORG 


TAPADR+41 


3356 




DC 


CL3»TP5» 


3357 




ORG 


TADAOR+49 


3358 




DC 


CL3«TP6» 


3359 




ORG 


TAPADR+57 


3360 




DC 


CL3»TP7» 


3361 




ORG 


TAPADR+65 


3362 




DC 


CL3»TP8» 


3363 




ORG 


TAPADR+73 


3364 




DC 


CL3«TP9« 


3365 




ORG 


TAPADR+82 


33 66 


PRMTOCB OCB 


MACRF=PM,DSORG=PStDDNAHE=WRl 








EXLST=MURLIST 



MARK 



OF CCW CHAIN FOR CU OPS TAB 



TO A 1401 TAPE DRIVE AS A 



i53,RECFM=FBM, 
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00297000 
00297100 
00297200 
00297300 
00297400 
00297500 
00297600 
00297700 
00297800 
00297900 
00298000 
00298100 
00298200 
00298300 
00298400 
00298500 
00298600 
00298700 
00298800 
00298900 
00299000 
00299100 
00299200 
00299300 
00299400 
00299500 
00299600 
00299700 
00299800 
00299900 
00300000 
00300 100 

00300300 
00300400 
00300500 
00300600 
00300700 
00300800 
00300900 
00301000 
00301100 
00301200 
00301300 
00301400 
00301500 
00301600 
00301700 
00301800 
00301900 
00302000 
00302100 
00302200 
C00302300 
00302305 



CHANMEL COHHAND WORDS 



PAGE 



84 



LOG OBJECT COOE AODRl ^D0R2 STMT 



SOURCE STATEHfcNT 



F150CT70 10/28/71 



0D36F6 0000 

0036F8 



0036F8 0000000000000000 
003708 00000000 



00370G 


00 


003700 


000001 


003710 


0000 


003712 


4000 


003714 


00000001 



003718 00 

003719 000001 
00371C 9? 

003710 003758 



003720 E6D9C9fc3C5404040 
003728 02 
'003729 00 ' 
00372A 0050 



00372C 
00372D 
003730 
003734 
003736 
003738 
00373C 
003740 
003741 



003744 
003748 
00374A 
00374C 
00374D 
003750 
0037e>4 



00 

000001 

00000001 

0000 

0000 

00000000 

00000001 

00 

000001 



DOOOQOOl 

0000 

0085 

00 

000001 

00000000 

00000001 



3368+* 
3369+* 

3370+PRNITDCP' DC 



DATA CONTROL BLOCK 



0037S8 8 5 



3374 + 


DC 


337^+ 


DC 


3377+* 




3379 + 


DC 


3380+ 


DC 


3381+ 


DC 


3382 + 


DC 


3383 + 


DC 


338 5+* 




3387+ 


DC 


3388+ 


DC 


3389 + 


DC 


3390+ 


DC 


3392+* 




3394+ 


DC 


3395 + 


DC 


3396+ 


DC 


3397+ 


DC 


3399+* 




3401 + 


DC 


3402+ 


DC 


3403+ 


DC 


3404+ 


DC 


3405 + 


DC 


3406+ 


DC 


3407+ 


DC 


3408+ 


DC 


3409+ 


DC 


341 1+* 




3413+ 


DC 


3414+ 


DC 


3415+ 


DC 


3416+ 


DC 


3417+ 


DC 


3418 + 


DC 


3419 + 


DC 


3420 * 


OCR 


3423 MURLIST 


DC 



OF Mi* ORIGIN ON WORD BOUNDARY 

DIRECT ACCESS DEVICE INTERFACE 

8L16»0» FOAD,DVTBL 
A(OJ KEYLE»DEVT,TRBAL 

CONMON ACCESS HETHOD INTERFACE 

ALl(O) BUFNO 

AL3{1) BUFCB 

AL2(0} BUFL 

PL 2 '0100000000000000 • DSORG 

A(l) I OB AD 

FOUMDATION EXTEMSION 

BLl »00000000» BFTEKtBFLM,HIARCHY 
AL3(1) EODAD 
BLl •10010010* RECFN 
AL3(MURLIST) EXLST 

FOUNDATIOM BLOCK 

CL8»WRITE» DONAHE 
BL1»00000010» OFLGS 
BL1»00000000» IFLG 
BL2 » 000000000 1010000 • MACR 



BLl* 00000000* RERl 
AL3(1) CHECK, GERR, PERR 
Ad) SYNAD 

H*0* CINDlt CIND2 

AL2{0) BLKSI2E 

F»0» NCPO, WCC>L, OFFSR, OFFSN 

A(l) lOBA 

ALKO) NOP 

AL3(1) EOBR, EOBAO 



OSAN INTERFACE 



A(i) kECAD 
H»0» QSWS 
AL2(133) LRECL 
BLl »00000000» EROPT 
AL3n) CNTkL 
F'O* PRECL 
AU) EOB 
XIT ROUT I ME ADDED 3Y 
X»85* 



BROWN WRO 71061 
END OF LIST, DCB 



EXIT ENTRY 



00302310 
00302315 



CHANNEL COMMANDO HORDS 



PAGE 



85 



LOG OBJECT CODE 



0D3759 


0037! 


5C 


00373C 






00375C 


4831 


003E 


003760 


48'!. 1 


005 2 


003764 


1233 




003766 


4780 


F018 


00376A 


1B22 




00376C 


1D24 




00376E 


1222 




003770 


078t 




003772 


078E 




003774 


4041 


003E 


003778 


07FE 




002148 







AD0k2 


STMT 


SOURCE 


STATE! 


^ENT 




F150CT70 


10/28/71 




3422 




DC 


AL3(MUREXIT) 




ADDR OF DCB EXIT ROUTINE 


00302320 




3423 




USING 


*,15 




K 15 IS BASE FOR THIS ROUTINE 


00302325 


00036 


3424 


?4UREXIT 


LH 


3t62(l) 




GET DCB BLKSIZE 


00302330 


0005? 


342 5 




LH 


4t82(l) 




GET DCB LRECL 


00302335 




3426 




LTR 


3,3 




IS BLKSIZE ZERO? 


00302340 


03774 


3427 




BZ 


SETBLK 




YES, GO SET BLKSIZE = LRECL 


00302345 




3428 




SR 


2,2 




NO, ZERO R2 FOR REMAINDER 


00302350 




3429 




OR 


2,4 




DIVIDE BLKSIZE BY LRECL 


00302355 




3430 




LTR 


2,2 




ZERO REMAINDER? 


00302360 




3431 




BCR 


8,14 




YES, EX IT TO OPEN 


00302365 




3432 




BCR 


8,14 




YES, EXIT TO OPEN 


00302370 


0003E 


3433 


SETBLK 


STH 


4,62C1) 




NO, SET BLKSIZE = LRECL 


00302375 




3434 




BR 


14 




EXIT TO OPEN 


00302380 




343 5 




USING 


SETBS1,15 






00302385 




3436 


?>UNCHR 


DCB 


MACRF=PH,DSOR&= 
EXLST=HURLIST 


=^PS,RECF> 


l=FBH,LRECL=81,D0NAME=CARD0UT, 

TAB 


X00302400 
00302500 



00 377 A 0000 
00377C 



00377C 0000000000000000 
00378C 00000000 



003790 00 

003791 000001 
AnaTQA nnnn 

003796 4000 
003798 00000001 



00379C 00 
0D3790 000001 
0037A0 92 
0037A1 003758 



0037A4 C3C109C4D6E4F340 
0037AC 02 
0037AD 00 
0037AE 0050 



0037B0 00 
0037B1 000001 
0037B4 00000001 



3438+* 




3439+* 




3440+PUNCHR 


DC 


3442+* 




3444+ 


DC 


3445+ 


DC 


3447+* 




3449+ 


DC 


3450+ 


DC 


3451 + 




3452+ 


DC 


3453+ 


DC 


3455+* 




3457+ 


DC 


3458 + 


DC 


3459 + 


DC 


3460+ 


DC 



3462+* 



3464+ 


DC 


3465+ 


DC 


3466 + 


DC 


3467+ 


DC 


3469+* 




3471 + 


DC 


3472+ 


DC 


3473+ 


DC 



DATA CONTROL BLOCK 

0F»0» ORIGIN ON WORD BOUNDARY 

DIRECT ACCESS DEVICE INTERFACE 

BL16»0« FDAD,DVTBL 
AtO) KEYLE,DEVT,TRBAL 

COMMON ACCESS HETHOD INTERFACE 

ALKO) 8UFN0 
AL3(1) BUFCB 

At 'y t n\ n\iszi 

BL2»0i0OOO0000OO00O0» DSORG 
Ad) lOBAD 

FOUNDATION EXTENSION 

BL1»00000000» BFTEK,BFLN,HIARCHY 
AL3{1) EODAD 
BL1»10010010» RECFH 
AL3INURLIST) EXLST 

FOUNDATION BLOCK 

CL8«CARD0UT« DDNAME 
BLI'OOOOOOIO* OFLGS 
BLl'OOOOOOOO* IFLG 
BL2»0000000001010000» MACR 

SSAH-BPAM-QSAH INTERFACE 

BL1»00000000» RERl 
AL3(1} CHECK, GERR, PERR 
Ad) SYNAD 



CHANf^EL CONMAMD WORDS 



PAGE 86 



LOC OBJECT CODE 

0037B8 0000 
00 37BA 0000 
0037BC 00000000 
0037C0 00000001 
0037C4 00 
0037C5 000001 



0037C8 
0037CC 
0037CE 
0037DO 
003701 
0037D4 
003708 



00000001 

0000 

0051 

00 

000001 

00000000 

00000001 



ADDRl ADDR2 STHT 

3474+ 
3475 + 

3476+ 
3477+ 
3478 + 
3479+ 

3481 + =^ 



3483 + 
3484+ 
3485+ 
3486+ 
3487+ 
3488 + 
3489+ 
3490 CARD 



SOURCE STATEMENT 



F150CT70 10/28/71 



DC H»0» ClNDlr C1U02 

DC AL2tO) BLKSI2E 

DC F»0» HCPO, WCPL, OFFSk, OFFSW 

DC Ad) lOBA 

DC ALKO) NCP 

DC AL3(1) EOBR, EOBAD 

QSAM INTERFACE 

DC ACl) RECAD 

DC H»0» QSWS 

DC AL2(81) LRECL 

DC BL1» 00000000* EROPT 

DC AL3(1) CMTRL 

DC F»0« PRECL 

DC ACl) EOB 

DCB MACRF=GM,DS0RG=PS,RECFH=FB,LRECL=80r 
DON AME=CARD IN , EODAD=EOC 



X00302600 
00302700 



0037DC 



0037DC 
0037EC 



0000000000000000 

00000000 



0037F0 00 

0037F4 0000 
0037F6 4000 
0037F8 00000001 



0037FC 00 
0037FD 002DDA 

003800 90 

003801 000000 



003804 C3C1D9C4C9D54040 
003S0C 02 
00380D 00 
00380E 5000 



3492+^ 
3493+* 

3494+CARD 

3496+=J^ 



DC 



003810 
003811 



00 
00000 I 



3498 + 


DC 


3499+ 


DC 


350 l+* 




3503+ 


DC 


3504 + 


DC 


3505 + 


DC 


3506 + 


DC 


3507+ 


DC 


3509+* 




3511 + 


DC 


3512+ 


DC 


3513+ 


DC 


3514 + 


DC 


35I6+* 




3518 + 


DC 


3519+ 


DC 


3520+ 


DC 


3521 + 


DC 


3523+* 




3525 + 


DC 


3526+ 


DC 



DATA CONTROL BLOCK 

0F»0» ORIGIN ON WORD BOUNDARY 

DIRECT ACCESS DEVICE INTERFACE 

BL16«0» FDAOfDVTBL 
AtO) KEYLE,DEVT,TR8AL 

COHMON ACCESS METHOD INTERFACE 

ALKO) BUFNO 

Mi_3 \ X r our WD 
AL2(0) BUFL 

BL2»0100000000000000« DSORG 
ACl) lOBAD 

FOUNDATION EXTENSION 

BLl* 00000000* BFTEK,BFLN,HIARCHY 
AL3CE0C) EODAD 
BL1» 10010000* RECFN 
AL3(0) EXLST 

FOUNDATION BLOCK 

CL8»CARDIN» DDNANE 
BL1»00000010« OFLGS 
BLl'OOOOOOOO* IFLG 
BL2*0101000000000000« HACR 

BSAH-BPAN-QSAH INTERFACE 

BL 1*00000000* RERl 
AL3C1) CHECK, GERR, PERR 



CHANNEL COHNAND WORDS 



PAGE 



87 



.ODRl ADDR2 STMT 



SOURCE STATEMENT 
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003814 
Q03B1S 
d0381A 
00381C 
003820 
003824 
003825 



0000000 i 

0000 

0000 

00000000 

00000001 

00 

000001 



3527+ 

3528 + 

3529 + 

3530 + 

3531 + 
3532+ 
3533+ 



DC A(l) SYNaD 

DC H»0» ClNDl, CIND2 

DC AL2{0) BLKSI2E 

DC F«0« HCPO, wCPL, OFFSRt 

DC All) lOBA 

DC ALKO) NCP 

DC AL3( 1) eOBR, EOBAO 



OFFSW 



3535+* 



OSAM IMTERFACE 



003B28 
00382C 
0038 2 E 
003830 
0038 31 
003834 
003838 



00000001 

0000 

0050 

00 

000001 

00000000 

00000001 



3537+ 
3538 + 
3539+ 
3540+ 
3541 + 
3542+ 
3543 + 



DC ACl) RECAD 

DC H«0» QSHS 

DC AL2{80) LRECL 

DC BLl '00000000 • 

DC AL3(1> CNTRL 

DC F»0» PRECL 

DC ACl) EOB 



EROPT 



DATA COfvVERSION TRANSLATE TABLES 



PAGE 



88 



OBJECT 



>DE 



ADDRl ADDR? STMT 



SOURCE STATEMENT 
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00363 0000006400C8012C 
003850 0000000000000000 
003850 0000044C04B00514 
003872 OOODOOOOOOOOOOOO 
00387C 00000834089808FC 
003892 0000000000000000 
00389C 00000C1C0C80OCE4 
0038B2 0000000000000000 
0038BC 0000000100020003 
003800 0000000000000000 
00380C 00000FA10FA20FA3 
0038F2 0000000000000000 
0a38FC 00001 F411F421F43 
003912 0000000000000000 
00391C 00002EE12EE22EE3 
00392E 2EE92EE000000000 
00393C 0000000A0014001E 
003950 0000000000000000 
00395C 0000000000000000 
003A5C 0000000000000000 
003A9C 0000000000000000 
003AAC 3000000000000000 
003ABC 2011000000000000 

ooIacc 2011006000000000 

003A0C 0000000000000000 

003B1C 3A31323334353637 
003B2C 2A21222324252627 
003B3C 1A00121314151617 
003B4C OAOl 020304050607 
0038 5C 40F1F2F3F4F5F6F7 
003&6C F061E2E3E4E5E6E7 
00387C 60010203D40506D7 
003B8C 50C1C2C3C4C5C6C7 
003B9C 40F1F2F3F4F5F6F7 
003BAC F061E2E3e4E5E6E7 
0036BC 6001D2D3D4D5D607 
003BCC 50C1C2C3G4C5C6C7 
003B0C 0001020304050607 
003BEC 00 

003BED 1112131415161718 
003C1C 10 

003C1D 0102030405060708 
003C5C 10 

003C5D 0102030405060708 
003C9C 0000000000000000 
003D9C 4040404040404040 
003DDC FIFIFIFIFIFIFIFI 
003E1C 0001020304050607 
003E90 C1C2C3C4C5C6C7C8 
003EA6 00000000000000 
003EA0 D1D2D3D4D5D6D7D8 
003EB6 0000000000000000 
003FBE F2E3E4E5E6E7E8E9 
003EC6 AAABACADAEAFBOBl 
003E5B 



3545 


T8HNTH 


DC 


3546 




DC 


3547 




DC 


3546 




DC 


3549 




DC 


3550 




DC 


3551 




DC 


3552 




DC 


3553 


TBT4UN 


DC 


3554 




DC 


3555 




DC 


3556 




DC 


3557 




DC 


3558 




DC 


3559 




DC 


3560 




DC 


3561 


TBTENS 


DC 


3562 




DC 


3563 


TRTB 


DC 


3564 


TRE I 


DC 


3565 




DC 


3566 




DC 


3567 




DC 


3568 




DC 


3569 




DC 


3570 




DC 


3571 




DC 


3572 




DC 


3573 




DC 


3574 


TRIE 


DC 


3575 




DC 


3576 




DC 


3577 




DC 


3578 




DC 


3579 




DC 


3580 




DC 


3581 




DC 


3582 


TR4IBC 


DC 


3583 




DC 


3584 




DC 


3585 


TkI4BC 


DC 


3586 




DC 


3587 




DC 


3588 




DC 


3589 


TRGPWM 


DC 


3590 


TRWDMK 


DC 


3591 




DC 


3592 


TYPTBL 


DC 


3593 




DC 


3594 




DC 


3595 




DC 


3596 




DC 


3597 




DC 


3598 




DC 


3599 




Oi 



H 'O, 1 00, 200, 300, 400, 500, 600 t 700, 800, 900* 

6H*0» 

H • 0,11 00, 1200, 1300, 1400, 1500, 1600, 1700, 1800, 1900,1 000 » 

5H»0* 

H* 0,2 100, 2200, 2 300, 2400, 2500, 2600, 2700, 2800, 2900, 2000* 

5H»0» 

H» 0,31 00, 3200, 3300, 3400, 3500, 3600, 3700, 3800, 3900,3000* 

5H • • 

H»0, 1,2, 3, 4, 5, 6,7,8,9* 

6H » • 

H» 0,400 1,4002, 400 3, 4004, 4005, 4006, 4007, 4008, 4009,4000* 

5H»0» 

H •0,8001, 8 002, 8003, 8004, 8005, 8006, 8007, 8008, 8009, 8000 • 

5H»0« 

H» 0,1200 1,1 2002, 12003, 12004, 12005, 12006, 12007, 12008 • 

H« 12009, 12000,0,0 ,0,0,0* 

H* 0,1 0,20, 30, 40, 5 0,60, 70, 80, 90* 

6H*0* 

64X«00« ,64X*F1» ,64X »00 * ,64X »F 1 » 

64X*00* 

X»00000d00000000000000003B3C3D3E3F* 

X»30000000000000000000002B2C2D2E2F» 

X* 20 11 000000000000000000 IB IC 101 El F* 

X* 20 n 00000 OOOOOOOOOOOOAOBOCOOOEOF* 

64X«00* 

X*3A31 32333435363 73839000000000000* 

X '2 A2 1222 32425262 72829000000000000* 

X*1A0012 131415 16 171 819000000000000* 

X*OA010203040506070809000000000000* 

X*40F1F2F3F4F5F6F7F8F9F07B7C7D7E7F» 

X*F061E2E3E4E5E6E7E8E9E06B6C6D6E6F* 

X«60D1D2D3D4D5D6D70809005B5C5D5E5F* 

X»50C1C2C3C4C5C6C7C8C9C04B4C4D4E4F* 

X»40F1F2F3F4F5F6F7F8F9F07B7C7D7E7F» 

X»F061E2E3E4E5E6E7E8E9E06B6C606E6F* 

X'60D1D203D405D6D7D8D9D0585C5D5E5F» 

X»50C1C2C3C4C5C6C7C8C9C04B4C4D4E4F* 

16AL1(*-TR4I8CJ 

X*00» 

47AL1(*-TR4IBC) 

X • 1 • 

63AL10-TRI4BC) 

X'lO* 

63ALl(*-64-TRI4BC) 

127X*00*,X*7F*,128X*00» 

64X»40* 

64C • 1 » 

129AL1(«-TYPT8L} 

C'ABCOEFGHI* 

XL7*00» 

C'JKLMNOPQk* 

XL8*00» 

C'STUVWXYZ* 

86ALU '^-TYPTBL) 

TYPTBL+63 



00302900 
00303000 
00303100 
00303200 
00303300 
00303400 
00303500 
00303600 
00303700 
00303800 
00303900 
00304000 
00304100 
00304200 
00304300 
00304400 
00304500 
00304600 
00304700 
00304800 
00304900 
00305000 
00305100 
00305200 
00305300 
00305400 
00305500 
00305600 
00305700 
00305800 
00305900 
00306000 

AnaAiL 1 Art 

00306200 
00306300 
00306400 
00306500 
00306600 
00306700 
00306800 
00306900 
00307000 
00307100 
00307200 
00307300 
00307400 
00307500 
00307600 
00307700 
00307800 
00307900 
00308000 
00308100 
00308200 
00308300 



DATA CONVERSION TRANSLATE TABLES 
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LOC OBJECT CODE AODRl A0DR2 STMT SOURCE STATEMEHT 
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003E5B 000000 
003F1C 



3600 
3601 



DC XL3»00« 
ORG TYPTBL+256 



00308400 
00308500 



LITERALS 



PkGE 



90 



LOG OBJECT CODE 



003F2 

003F20 

003F24 

003F?8 

003F2C 

003F3G 

003F34 

003F38 

003F3C 

a03F40 

003F44 

003F48 

003F4e 

003F50 

003F54 

003F58 

003F5C 

003F60 

003F64 

003F68 

003 F6C 

00 3 F 70 

003F74 

003F78 

003F7C 

003F80 

003F84 

003F88 

0g3F8C 

00 3F9 ' 

003F94 

003F9 8 

003 F9C 

0O3FA0 

003FA4 

003FA8 

003FAC 

003FAE 

003FB0 

003FB2 

003FB4 

003F86 

0O3FB8 

003FBA 

003 FBC 

003FBE 

003FC0 

003FC2 

003FC4 

003FC6 

00 3FCB 

003FCA 

003FCC 

003FCE 

003FD0 



000000 IF 
000002 A4 
0000000 F 
0000000 B 
00Q00008 
00000030 
0000003F 
0000094F 

00000064 

00003E7F 

00003658 

00003638 

00000003 

00000001 

00000083 

00000007 

00000997 

C3C3E3D3 

00002F58 

0000331C 

0000 3E8A 

00002460 

00000001 

00003648 

00003668 

0000 14AE 

0000 3670 

OOOOOFAO 

000003 E8 

OOOOOOOA 

OOOOOOFO 

000000 F9 

OOOOOOFA 

000000 8 A 

0000 36 A4 

0007 

0001 

0004 

OOOA 

0009 

0020 

0008 

0005 

0002 

0006 

4630 

0100 

0064 

3329 

4040 

0003 

0030 

0040 

3E7F 



DDRl ADDR2 STHT 

3603 
3604 
3605 
3606 
3607 
3608 
3609 
3610 
3611 
3612 
3613 
3614 
3615 
3616 
3617 
3618 
3619 
3620 
3621 
3622 
3623 
3624 
3625 
3626 
362 7 
3628 
3629 
3630 
3631 
3632 
3633 
3634 
3635 
3636 
3637 
3638 
3639 
3640 
3641 
3642 
3643 
3644 
3645 
3646 
3647 
3648 
3649 
3650 
3651 
3652 
3653 
3654 
3655 
3656 
3657 



SOURCE STATEMENT 



LTORG 



F1&0CT70 10/28/71 
00308700 



= F»31« 
^ACTBTRCP) 

:F»15« 
:F»11» 

= F»8« 

^F»4B* 

=F»63« 

^A{H4) 

^F » 100 • 

^F» 15999* 

^A(RTCCN) 

^A(WTCCWl) 

^F»3» 

rFll» 
:F«131» 

^F»7* 

^A(E0JIAR+5^ 

=C»CCTL» 

^A(CARTAB) 

:A(TM^ARA+10} 

^F» 16010* 

^ACR0STIN(+4) 

^X» 00000001* 

^AILDTCCW) 

^A(WTNCCW) 

=A ( N ) 

^A(RWDCCW) 



=F 
= F 
=F 
= F 
= F 
= F 
=A 
=H 
=H 
=H 
=H 

=:H 
= H 

=H 
=H 
=H 
=H 
=H 
=X 
=C 
=H 
=H 
=H 



4000' 
1000» 
10 • 
240* 

c_ nr J' 

250 » 

138» 

TAP ADR) 

7» 

1» 

4» 

10» 
9 » 

32 • 
8» 
5» 
2» 
6» 

18000' 
256» 
100 » 
3329* 
t 

3» 

48 • 
64 • 
15999' 



LITERALS 
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LOC OBJECT CODE 



A DDK: I A DDR 



STNT 



SOURCE STATEMENT 



F150CT70 10/28/71 



003FD2 FOFO 

003F04 3E1C 

003F06 OA0020000909 

003FDC 012C 

003FDE 3E80 

003FE0 464F 

003FE2 00 

003Fe3 404040 

003FE6 C3C3E3D3F2 

003Fe8 E2E2E2 

003FEE D3C4C3 

003FF1 D3C4E3 

003FF4 E2D9E2 

003FF7 E2E3E3 

003FFA C3D3D9 

003FFD C4C9E2 

004000 C1D3E3 

004003 E6E3D4 

004006 09E6C4 

004009 E309D4 

00400C C40407 

00400F 010A0A0D2000O20A 

004018 FO 



3658 
3659 
3660 
366 1 
3662 
3663 
3664 
3665 
3666 
3667 
3668 
3669 
3670 
3671 
3672 
3673 
3674 
3675 
3676 
3677 
3678 
3679 
3680 



=c 


»00« 




=H 


U5900» 




=X 


'OA00200009 


09 » 


=H' 


^300* 




=H' 


16000' 




=H' 


17999* 




=X' 


00 • 




= X' 


'404040 » 




-c 


CCTL2* 




=C' 


sss» 




=C' 


'LDC* 




=C' 


LDT» 




=C" 


SRS» 




=-c« 


fSTT« 




=c 


•CLR» 




=C' 


DIS« 




-C« 


•ALT' 




=c« 


WTM* 




=C' 


RWD» 




=C' 


TRM» 




=C« 


OHP» 




=x« 


0i0A0A0O20f 


3002:CA01 • 


=C' 


0» 





TAPE DCBS 
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LOC OBJECT COOE 



ADDRl AD0R2 STMT SOURCE STATEHEMT 

3682 TAPEDCBO DCE HACRF- { E ) tO SORG=PSt DDNaHE=TPO 



FI50CT70 10/28/71 
00246500 



004019 000000 
0040 IC 



00401C 0000000000000000 
00402C 00000000 



004030 00 

004031 000001 
004034 0000 
004036 4000 
004038 00000001 



00403C 00 
004030 000001 

004040 00 

004041 000000 



004044 E307F04040404040 

00404C 02 

H> Kj* -r V ^r i-* \J \J 

00404E D008 



3684+* 
3685+* 

3686+TAPEDCBO DC 



3688+* 




3690+ 


DC 


3691 + 


DC 


3693+* 




3695 + 


DC 


3696+ 


DC 


3697+ 


DC 


3698 + 


DC 


3699+ 


DC 


3701+* 




3703 + 


DC 


3704+ 


DC 


3705+- 


DC 


3706+ 


DC 



708+ = 



3710+ 


DC 


3711+ 


DC 


3712+ 


DC 



3713+ DC 

3714 TAPEDCBl DCB 



DATA COrvTROL BLOCK 

0F»0» ORIGIN OH WORD BOUNDARY 

DIRECT ACCESS DEVICE INTERFACE 

BL16»0» FDAD,DVTBL 
A{0} KEYLE,DEVT,TRBAL 

COHNON ACCESS HETHOD INTERFACE 

ALI(O) BUFNO 

AL3{1) BUFCB 

AL2{0) BUFL 

BL2 • 01 00000000000000 • DSORG 

Ad) IQBAD 

FOUNDATION EXTENSION 

BLl' 00000000 » BFTEKtBFLN,HIARCHY 

AL3(U EODAD 

BLl '00000000 • RECFN 

AL3{0) EXLST 

FOUNOA^TION BLOCK 

CL8»TP0» ODNAME 
BL1«00000010« OFLGS 

or 1 inAAAAnrvnt t tri a 

!J l_ X ■ VJ- U W V M U M U " i I l_ t? 

BL2»1101000000001000» HACR 
MACRF={E) rDSORG = PS,DDNAME=-TPl 



00246600 



004050 



004050 0000000000000000 
004060 00000000 



004064 00 

004065 000001 

004068 0000 
004 06 A 4000 
00406 C 00000001 



3716+* 




3717+* 




3718+TAPEDCBl 


DC 


3720+* 




3722 + 


DC 


3723+ 


DC 


3725+* 




3727 + 


DC 


3728 + 


DC 


3729 + 


DC 


3730 + 


DC 


3731 + 


DC 


3733+* 





DATA COMTRQL BLOCK 

0F»0» ORIGIN OH WORD BOUNDARY 

DIRECT ACCESS DEVICE INTERFACE 

BL16'0» FDAD,DVTBL 
A(0) KEYLE,DEVT,TRBAL 

COHMON ACCESS METHOD INTERFACE 

ALKO) BUFNO 
AL3{1) BUFCB 
AL2(0) BUFL 

BL2«0100000000000000« DSORG 
A(l) lUBAO 

FQUMDATION EXTENSION 



TA^E DCBS 



PAGE 93 



LOC OBJECT CODE 

004070 00 

004071 000001 

004074 00 

004075 000000 



004078 E307F14040404040 

004080 02 

004081 00 

004082 D008 



ADDRl AD0R2 STHT 



SOURCE STATEMENT 



F150CT70 10/28/71 



3735 + 


DC 


3736+ 


DC 


3737+ 


DC 


3738+ 


DC 


3740+* 




3742+ 


DC 


3743 + 


DC 


3744+ 


DC 


3745+ 


DC 



3746 TAPEDCB2 DCB 



BLl •OOOOOOOO* BFTEKf BFLlMtHIARCHY 

AL3C1) EODAD 

BLl '00000000 » RECFN 

AL3C0) EXIST 

FOUNDATION BLOCK 

CL8»TP1« DDNAME 
BLl *000000I0» DFLGS 
SLl'OOOODOOO* IFLG 
BL2»1101000000001000« MACR 
MACRF=CE)tDS0RG=PS,DDNAME=TP2 



00246700 



004084 



004084 0000000000000000 
004094 00000000 



004098 00 

004099 000001 
00409C 0000 
00409E 4000 
0040A0 00000001 



0040A4 00 
0040A5 000001 
0040A8 00 
0040A9 000000 



0040AC E3D7F24040404040 
0040B4 02 
0040B5 00 
0040B6 DC08 



3748+* 




3749+* 




3750+TAPeDCB2 


DC 


3752+* 




3754+ 


DC 


3755 + 


DC 


3757+* 




3759+ 


DC 


3760+ 


DC 


3761 + 


DC 


3762 + 


DC 


3763+ 


DC 


3765+* 




3767 + 


DC 


3768 + 


DC 


3769 + 


DC 


3770+ 


DC 


3772+* 




3774+ 


DC 


3775+ 


DC 


3776 + 


DC 


3777+ 


DC 



3778 TAPEDCB3 DCB 



DATA CONTROL BLOCK 

0F«0» ORIGIN ON WORD BOUNDARY 

DIRECT ACCESS DEVICE INTERFACE 

BL16»0» FDAD,DVTBL 
ACO) KEYLE,DEVT,TRBAL 

COMMON ACCESS METHOD INTERFACE 

ALKO) BUFNO 
AL3ai BUFCB 
AL2{0) BUFL 

BL2*OI000O00OOOO0OOO» DSORG 
A(l) lOBAD 

FOUNDATION EXTENSION 

BLl '00000000 • BFTEKtBFLN,HIARCHY 

AL3(1) EODAD 

BLl* 00000000* RECFM 

AL3(0) EXLST 

FOUNDATION BLOCK 

CLS »TP2» DDNAME 
BL1»00000010« OFLGS 
BLl'OOOOOOOO* IFLG 
PL2»1I01000000001000« MACR 
HACRF = (e),DS0RG=t>S,DDNAME=TP3 



00246800 



0040B8 



0040B6 OOOOOOGOOOOOOOOO 
0040C8 00000000 



3780+* 




378I+* 




3782+TAPEDCB3 


DC 


3784+* 




3766+ 


OC 


3787 + 


DC 



DATA CONTROL BLOCK 

0F»0» ORIGIN ON WORD BOUNDARY 

DIRECT ACCESS DEVICE INTERFACE 

BL16»0« FDAD,DVTBL 
A(OI KEYLE,DEVT,TRBAL 



TA?>E DCS 



PAGE 94 



LOG OBJECT CODE 



0040CC 00 
0040CD 000001. 
0040D0 0000 
0040D2 4000 

0040D4 00000001 



0040D8 00 
004009 000001 
0040DC GO 
004000 000000 



0040E0 E3D7F34040404040 

u04ut:8 \J£ 

0040E9 00 

0040EA D008 



AODRl ADDK2 STHT 



SOURCE STATENENT 



F150CT70 10/28/71 



3789+* 




3791 + 


DC 


3792 + 


DC 


3793 + 


DC 


3794+ 


DC 


3795 + 


DC 


3797+* 




3799 + 


DC 


3800+ 


DC 


38G1 + 


DC 


3802+ 


DC 


38 04+* 




3806+ 


DC 


3807+ 


DC 


3808 + 


DC 


3809+ 


DC 



COHHON ACCESS HETHOD INTERFACE 



3810 TAPEDCB4 DCB 



ALl(O) BUFNC 
AL3(1) BUFCB 
AL2(0) BUFL 

5L2»0ia0OOO0DO0OD00O» DSORG 
ACl) lOBAD 

FOUMDATlOfsl EXTENSION 

BL1» 00000000* BFTEK,BFLM,HIARCHY 

AL3C1) EODAD 

BLl • 00000000 » RECFN 

AL3(0) EXIST 

FOUNDATIOI^ BLOCK 

CL8»Tf>3» ODNAME 
BLI'OOOOOOIO* OFLGS 

BLl* 00000000* IFLG 

BL2» 1 101000000001000 • HACR 

HACRF = (ENDS0RG=PS,DDNANE = TP4 



00246900 



0040EC 



0040EC 0000000000000000 
0040FC 00000000 



004100 00 

004101 000001 
004104 0000 
004106 4000 
004108 00000001 



004 IOC 00 
00410D 000001 

004110 00 

004111 000000 



004114 E3D7F440404040An 
00411C 02 
0041 ID 00 
00^1 IE D008 



38 12+* 




3 8 13+* 




3814+TAPEDCB4 


DC 


3816+* 




3818 + 


DC 


3819+ 


DC 


3821+* 




3823+ 


DC 


3824+ 


DC 


3825+ 


DC 


3826+ 


DC 


3827+ 


DC 


3829+* 




3831 + 


DC 


3832 + 


DC 


3833+ 


DC 


3834+ 


DC 


3836+* 




3 S3 3 + 


DC 


3839 + 


DC 


3840+ 


DC 


3841 + 


DC 



3842 TAPE0CB5 DCB 



DATA CONTROL BLOCK 

0F»0» ORIGIN ON WORD BOUNDARY 

DIRECT ACCESS DEVICE INTERFACE 

BL16»0« FDADtDVTBL 
A(0) KEYLEtDEVT,TRBAL 

COMMON ACCESS METHOD INTERFACE 

ALKO) SUFHO 
AL3(1) BUFCB 
AL2{0) BUFL 

BL2»0100000000000000» DSORG 
Ad) lOBAD 

FOUMDATION EXTENSION 

BLl* 00000000 » BFTEK ,BFLN tHIARCHY 
AL3{1) EODAD 
BLl'OOOOOOOO* RECFH 
AL3{0) EXLST 

FOUNDATION BLOCK 

CL8»TP^4» DDNAHE 

3L1»00000010« OFLGS 

BLl* 00000000* IFLG 

BL2* 1101000000001000* MACR 

MACRF=(E) ,0S0RG=PS,DDNAME=TP5 



00247000 



TAPE DCBS 
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LOG OBjeCT CODE 



ADDR.1 ADDR2 STHT 



SOURCE STATEHENT 



F150CT70 10/28/71 



004120 



004120 OOOOOOOOOOOOOOOO 
004130 00000000 



004134 00 

004135 000001 
004138 0000 
0041 3 A 4000 
0041 3 C 00000001 



004140 00 

004141 000001 

004144 00 

004145 000000 



00414B F3D7F5404n404040 

004150 02 

004151 00 

004152 DOOB 



3844 +j^ 




3845+* 




3846+TAPEDCB5 


DC 


3848+* 




3850+ 


DC 


3851+ 


DC 


3853+* 




3855+ 


DC 


3856+ 


DC 


3857+ 


DC 


3858 + 


DC 


38 59+ 


DC 


386 1+* 




3863 + 


DC 


3864+ 


DC 


3865+ 


DC 


3866+ 


DC 


3868+* 




3870 + 


DC 


3871 + 


DC 


3872+ 


DC 


3873+ 


DC 



3874 TAPEDCB6 DC8 



0F*0« OkIGINI OM word BOUNDARY 

DIRECT ACCESS DEVICE INTERFACE 

BL16»0» FDAD,DVTBL 
A{0) KEYLEtDEVT,TRBAL 

COMMON ACCESS METHOD INTERFACE 

ALKO) BUFIMO 
AL3CU BUFCB 
AL2(0) BUFL 

BL2« 010000000000000 0* DSORG 
Ail) lORAD 

FOUNDATION EXTENSION 

BL1» 00000000* BFTEKtBFLNtHlARCHY 
AL3{1) EODAD 
BLl'OOOOOOOO* RECFH 
AL3(0) EXIST 

FOUNDATION BLOCK 

CL8»TP5» DONAME 
BL1«00000010» OFLGS 
BLl '00000000 » IFLG 
BL2»1101000000001000« MACR 
HACRF=(E),DS0RG=PS,DDNANE=TP6 



00247100 



004154 



004154 OOOOOOOOOOOOOOOO 
004164 00000000 



004168 00 

004169 000001 
00416C 0000 
004 16E 4000 

004170 00000001 



004174 00 

004175 OOOOOI 
0041 78 00 



3876+* 




3877+* 




3878+TAPEDCB6 


DC 


3880+* 




3882 + 


DC 


3883+ 


DC 


3885+* 




388 7+ 


DC 


3888 + 


DC 


3889 + 


DC 


3890+ 


DC 


3891 + 


DC 


3893+* 




3695 + 


DC 


3896+ 


DC 


3897 + 


DC 



DATA CONTROL BLOCK 

0F»0» ORIGIN ON '^ORD BOUNDARY 

DIRECT ACCESS DEVICE INTERFACE 

BL16»0» FDAD,DVTBL 
A(0) KEYLE,DEVTtTRSAL 

COHNON ACCESS METHOD INTERFACE 

ALKO) BUFNO 
AL3{1) BUFCB 
AL2{0) BUFL 

BL2«0100000000000000» DSORG 
Ad) lOBAD 

FOUNDATION EXTENSION 

3L1 '00000000 • BFTEK,BFLN,HIARCHY 

AL3(n EODAD 

BLl '00000000 » RECFM 



TAPE DC^S 
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LOG OBJECT CODE 
004179 000000 



ADDRl ADDR2 STml 



SOURCE STATEHENT 



0041 7C E3D7F6404040404Q 

004184 02 

004185 00 

004186 0008 



F150CT70 10/28/71 



3898 + 


DC 


3900+* 




3902+ 


DC 


3903-t- 


DC 


3904 + 


DC 


3905 + 


DC 



3906 TAPEDCB7 OCI 



AL3(0) EXIST 

FOUNDATION^ BLOCK 

CL8«TP6« DDNAME 
BL1»00000010» OFLGS 
BL1» 00000000* IFLG 
BL2»1101000000001000» MACR 
MACKF=(E)t0S0KG=PS,DDfslAME = TP7 



00247200 



004188 



004188 0000000000000000 
004198 00000000 



00419C 00 
00419D 000001 
0041A0 0000 
0041A2 4000 
0041A4 00000001 



0041 A 8 00 
004 1A9 000001 

0041AD 000000 



0041B0 E3D7F74040404n40 
0041B8 02 
0041B9 00 
0041BA 0008 



3908 + =^ 
39 09+* 

3910+TAPEDCB7 DC 



3912+^ 

3914+ 
3915+ 

39 17+* 

3919 + 

3920 + 

3921 + 

3922 + 

3923 + 

3925+^ 

3927 + 
3928+- 

-3 m o J.. 

3930+ 
3932+* 

3934+ 

3935 + 
3936+ 
3937 + 



DC 
DC 



DC 
DC 
DC 
DC 
DC 



DC 
DC 

r-.r 

DC 



DC 
DC 
DC 
DC 



3938 TAPFDCB8 DCB 



DATA CONTROL BLOCK 

0F»0» ORIGIN OISI NORD BOUNDARY 

DIRECT ACCESS DEVICE INTERFACE 

BL16»0» FDADtDVTBL 
A(0) KEYLEtDEVTtTRBAL 

COMMON ACCESS METHOD INTERFACE 

ALl(O) BUFNO 
AL3(1) BUFCB 
AL2C0) BUFL 

SL2»0100000000000000» DSORG 
AU) lOBAD 

FOUNDATION EXTEMSIOM 

BL1» 00000000" BFTEK,BFLN,HIARCHY 
AL3C1) EODAO 

Di 1 t nr\n.r\r\f\nn t ocrau 

AL3(0) EKLST 

FOUNDATION BLOCK 

CLB»TP7» DDNAME 
BLl «00000010« OFLGS 
BLl »00000000» IFLG 

BL2U1010000D0001000* MACR 
:HACRF = (E),DSDRG=PStDDNAME = TPB 



00247300 



0041 BC 



0041BC OOOOOOOOOOGOOODO 
0041CC 00000000 



3940+* 
3941+* 

3942+TAPEDCB8 DC 



3944+* 

3946 + 
3947+ 



DC 
DC 



DATA CONTROL BLOCK 

OF'O* ORIGIN ON WORD BOUNDARY 

DIRECT ACCESS DEVICE INTERFACE 

8L16*0» FDADjDVTBL 
A(0) KEYLE,OEVTrTRBAL 



3949+* 



COHMO?^ ACCESS METHOD INTERFACE 



TAPE DCBS 



PAGE 9? 



LOi 



OBJECT CODE 



ADDRl ADDR2 STMT 



0041D0 


00 


004101 


000001 


0041 D4 


0000 


0041 D6 


4000 


0041 08 


00000001 



SOURCE STATEMENT 



F150CT70 10/28/71 



3951 + 


DC 


39524 


DC 


3953 + 


DC 


39 54 + 


DC 


3955+ 


DC 



ALl(O) BUFf^O 
AL3(1) SUFCB 
AL2{0} BUFL 

Bl?»0100000000000000» DSORG 
A(l) lOBAD 



0041 DC 00 
0041DD 000001 
0041E0 00 
004iEl 000000 



0041 E4 E3D7F84G40404040 
0041EC 02 
0041ED 00 
0041 EE D008 



3957+^ FOUNDATION EXTENSION 

BL1»00000000» BFTEKtBFLNfHIARCHY 

AL3(1) EODAD 

BLl » 00000000 » RECFM 

AL3(0) EXIST 

FOUNDATION BLOCK 

CL8»TP8« DDNANE 
BLl »00000010» OFLGS 
BLl'OOOOOOOO* IFLG 
BL2»1101000000001000' HACR 
3970 TAPEDCB9 DCR MACRF=( E ) ,DSORG=PS ,DDNAHE=TP9 



3959+ 


DC 


3960+ 


DC 


3961 + 


DC 


3962 + 


DC 


3964+* 




3966 + 


DC 


3967+ 


DC 


3968+ 


DC 


3969+ 


DC 



00247400 



0041F0 



004 IFO 0000000000000000 
004200 00000000 



004204 


00 


004205 


000001 


004208 


0000 


00420 A 


4000 


00420C 


00000001 



3972 + =^ 




3973+* 




3974+TAPE0CB9 


DC 


3976 +'^ 




3978+ 


DC 


3979+ 


DC 


3981+'?^ 




3983+ 


DC 


398 4+ 


DC 


3985+ 


DC 


3986+ 


DC 


3987+ 


DC 



DATA CONTROL BLOCK 

0F«0« ORIGIN ON WORD BOUNDARY 

DIRECT ACCESS DEVICE INTERFACE 

BL16»0» FDADtDVTBL 
A(0) KEYLEtDFVTtTRBAL 

COMHON ACCESS METHOD INTERFACE 

ALl(O) BUFNO 
AL3(1) BUFCB 
AL2(0) BUFL 

BL2»0100000000000000» DSORG 
A(l) lOBAD 



004210 00 

004211 000001 

004214 00 

004215 000000 



004218 
004220 
004221 
004222 
000000 
000000 
002142 



E3D7F94040404040 
02 

00 

Dooa 



3999+* 

3991+ DC 

3992+ DC 

3993+ DC 

3994+ DC 

3996+* 

3998+ DC 

3999+ DC 

4000+ DC 

4001+ DC 

4002 SIMCOR DSECT 

4003 DS 

4004 END 



FOUNDATION EXTENSION 

BL1» 00000000* BFTEKtBFLN,HIARCHY 
AL3(1) EODAD 
BL1»00000000» RECFN 
AL3{0) EXLST 

FOUNDATION BLOCK 

CL8»TP9» DDNAME 
BL1«00000010» OFLGS 

BLl »00000000» IFLG 

BL2» 1101000000001000* HACR 

CL 16020 

BEGIN 



00308800 
00308900 
00309000 



RELOCATION DICTIONARY 



PAGE 



iS.lQ 


REL*ID 


FLAGS 


ADDRESS 


01 


01 


oc 


00054C 


01 


01 


oc 


000550 


01 


01 


oc 


000554 


01 


ni 


oc 


000558 


01 


01 


oc 


00055C 


01 


01 


oc 


000560 


01 


01 


oc 


000564 


01 


01 


oc 


000568 


01 


01 


oc 


00056C 


01 


01 


oc 


000570 


01 


01 


oc 


000574 


01 


01 


oc 


000578 


01 


01 


oc 


00057C 


01 


01 


oc 


000580 


01 


01 


oc 


000584 


01 


01 


oc 


000588 


01 


01 


oc 


00058C 


01 


01 


oc 


000590 


01 


01 


oc 


000594 


01 


01 


oc 


000598 


o"i " 


_.... ^^ 


oc 


00059C 


01 


01 


oc 


0005A0 


01 


01 


oc 


0005A4 


01 


01 


oc 


OOOSAS 


01 


01 


oc 


0005AC 


01 


01 


oc 


0005BO 


01 


01 


oc 


0005B4 


01 


01 


oc 


0005B8 


01 


01 


oc 


00056C 


01 


01 


oc 


0005C0 


01 


01 


oc 


0005C4 


01 


01 


oc 


0005C8 


01 


01 


oc 


0005CC 


01 


01 


oc 


000500 


01 


01 


oc 


0005134 


01 


01 


oc 


000508 


01 


01 


oc 


0005DC 


01 


01 


oc 


0005E0 


01 


01 


oc 


0005E4 


01 


01 


oc 


000 5 E8 


01 


01 


oc 


0005 EC 


01 


01 


oc 


0005F0 


01 


01 


oc 


0005F4 


01 


01 


oc 


0005F8 


01 


01 


oc 


0005FC 


01 


01 


oc 


000600 


01 


01 


oc 


000604 


01 


01 


oc 


000608 


01 


01 


oc 


00060C 


01 


01 


oc 


000610 


01 


01 


oc 


000614 


01 


01 


oc 


000618 


01 


01 


oc 


0006IC 


01 


01 


oc 


000620 


01 


01 


oc 


000624 



10/28/71 



RELOCATION DICTIONARY 



PAGE 



iS.lD 


REL.ID 


FLAGS 


ADDRESS 


01 


01 


oc 


000628 


01 


01 


oc 


00062C 


01 


01 


oc 


000630 


01 


01 


oc 


000634 


01 


01 


oc 


000638 


01 


01 


oc 


00063C 


01 


01 


oc 


000640 


01 


01 


oc 


000644 


01 


01 


oc 


00064S 


01 


01 


oc 


0021D0 


01 


01 


08 


0021F9 


6i 


01 


oc 


002 IF C 


01 


01 


08 


002331 


01 


01 


08 


002439 


01 


01 


oc 


00243C 


01 


01 


08 


00252D 


01 


01 


oc 


002530 


01 


01 


08 


002969 


01 


01 


08 


00 2 A 3D 


01 


01 


08 


002BD9 


01 


01 


oc 


00 2 B DC 


01 


01 


oc 


002F50 


01 


01 


oc 


002F54 


01 


01 


oc 


6o3iEa 


01 


01 


oc 


0031EC 


01 


01 


oc 


0031F0 


01 


01 


oc 


0031F4 


01 


01 


oc 


0031F8 


01 


01 


oc 


0031FC 


01 


01 


oc 


003200 


01 


01 


oc 


003204 


01 


01 


oc 


003208 


01 


Ul 


oc 


00320C 


01 


01 


oc 


003210 


01 


01 


oc 


003214 


01 


01 


oc 


003218 


01 


01 


oc 


00 321C 


01 


01 


oc 


003220 


01 


01 


oc 


003224 


01 


01 


oc 


003228 


01 


01 


oc 


00322C 


01 


01 


oc 


003230 


01 


01 


oc 


003234 


01 


01 


oc 


003238 


01 


01 


oc 


00323C 


01 


01 


oc 


003240 


01 


01 


oc 


003244 


01 


01 


oc 


003248 


01 


01 


oc 


00 324C 


01 


01 


oc 


003250 


01 


01 


DC 


003254 


01 


01 


oc 


0032 58 


01 


01 


OC 


00325C 


01 


01 


oc 


003260 


01 


01 


oc 


00 3264 
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RELOCATION DICTIONARY 



PAGE 



POS.ID 


REL.IO 


FLAGS 


ADDRESS 


01 


01 


oc 


003268 


01 


01 


oc 


00326C 


01 


01 


oc 


003270 


01 


01 


oc 


003274 


01 


01 


oc 


003278 


01 


01 


oc 


00 327C 


01 


01 


oc 


003280 


01 


01 


oc 


003284 


01 


01 


oc 


003288 


01 


01 


oc 


00328C 


01 


01 


oc 


003290 


01 


01 


oc 


003294 


01 


01 


oc 


003298 


01 


01 


oc 


00 329C 


01 


01 


oc 


0032A0 


01 


01 


oc 


0032A4 


01 


01 


oc 


0032A8 


01 


01 


oc 


0032AC 


01 


01 


oc 


003230 


01 


01 


oc 


0032B4 


01 "" 


01 


oc 


0032B8 


01 


01 


oc 


0032BC 


01 


01 


oc 


0032CO 


01 


01 


oc 


0032C4 


01 


01 


oc 


0032Ca 


01 


01 


oc 


0032CC 


01 


01 


oc 


003200 


01 


01 


oc 


0032D4 


01 


01 


oc 


0032D8 


01 


01 


oc 


00320C 


01 


01 


oc 


0032E0 


01 


01 


oc 


0032E4 


01 


01 


08 


003685 


01 


01 


oc 


003690 


01 


01 


oc 


0036A8 


01 


01 


oc 


0036B0 


01 


01 


oc 


0036B8 


01 


01 


oc 


0036C0 


01 


01 


oc 


00 36 C 8 


01 


01 


oc 


0036D0 


01 


01 


oc 


003608 


01 


01 


oc 


00 36E0 


01 


01 


oc 


0036E8 


01 


01 


oc 


0036F0 


01 


01 


08 


00371D 


01 


01 


08 


003759 


01 


01 


08 


0037A1 


01 


01 


08 


0037F0 


01 


01 


oc 


003F24 


01 


01 


oc 


003F3C 


01 


01 


oc 


003F48 


01 


01 


oc 


00 3F4C 


01 


01 


oc 


00 3F60 


01 


01 


oc 


003F68 


01 


01 


oc 


003F6C 
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RELOCATION DICTIONARY 



PAGE 



>OS.ID 


01 


01 


01 


01 


01 


01 



REL .ID 

01 
01 
01 
01 
01 
01 



FLAGS 


ADDRESS 


DC 


003F74 


oc 


003F7C 


oc 


00 3F80 


oc 


003F84 


oc 


003F8B 


oc 


003FA8 
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CROSS-REFERENCE 



PAGE 



SYMBOL 

^ 

ADR140 

ADR360 

A END 

ALT 

ALTl 

ALT2 

ALT3 

A I T f. 

«i_ I -r 

ALT4A 

All 

ALIA 

ALIB 

ALIC 

ALIO 

ALIE 

ALIF 

ALIG 

ALIGI 

ALIH 

ALII 

ALU 

ALIK 

ALIL 

ALIM 

ALIIM 

ALIO 

ALIP 

ALIO 

ALIR 

ALT 

ANINUS 

ASTER 

B 

BASE 2 

BBE 

BBELl 

BCDTAP 

BCEIA 

SCEIB 

BCE7 

BCE8 

BCHTBL 

BEGIN 

BGMl 

BGN2 

BINNOD 

BL5A 

BL5B 

RL5BCH' 

BL5C 

8L5CKB 

BL5D 



LEi^ VALUI 



D t MNj 



REFcREMCES 



00004 000000 00056 
00003 002CAC 2860 



00004 
00001 
00004 
00004 
00002 
00006 

nn nn, r. 

00006 
00004 
00004 
00002 
00004 
00004 
00002 
00004 
00004 
00002 
00004 
00004 
00002 
00004 
00004 
00004 
00002 
0000 2 
00004 
00004 
00004 
00004 
00001 
00001 
00004 
00004 
00004 
00004 
00001 
00006 
00004 
00004 
00006 
00004 
00002 
00004 
0000^ 
00001 
00004 
00004 
00004 
00004 
00004 



002CAR 
00 32FE 
00289? 
002896 
0028AE 
0028C6 

00 28 FA 
00003C 
000080 
OOOOCA 
0000 EO 
0000F4 
000112 
00012E 
0001 4E 
000152 
000160 
000180 
OOOICA 
0001 E 2 
0001E6 
000 1F6 
000214 
000226 
000250 
0002 7E 
000292 
000028 
00141 B 
00141D 
0003 FO 
002100 
0020F6 
002124 
00 3 30 E 
0005 IC 
000542 
000508 
000502 
0031E8 
002142 
002320 
D0237A 
003082 
00043A 
00044E 
0004 FA 
000456 
0004F6 



28 59 
03289 
02566 
02567 
02573 
02579 
02585 
02592 
00073 
000 93 
00114 
00120 
00125 
00133 
00141 
00150 
00151 
00158 
00166 
00186 
00193 
00194 
00198 
00206 
00211 
0022 5 
00238 
00243 
0006 7 
01364 
01366 
00340 
02154 
02090 
02102 
329 5 
00416 
00426 
00410 
00409 
03207 
02111 
02244 
02271 
03085 
00359 
00364 
00407 
00366 
00406 



00004 00045E 00368 



0055 
1381 
2892 
0605 
0074 
2297 
2572 
2568 
2578 
2596 
2589 
0059 
0138 
0103 
0091 
0121 
0128 
0135 
0148 
0142 
0087 
0164 
0176 
0190 
0160 
0193 
0201 
0208 
0223 
0235 
0238 
0057 

1172 

0339 
2115 
2089 
2091 
0767 
0341 
0419 
0348 
0350 
3205 
2113 
2153 
2256 
0770 
0432 
0432 
0343" 
0432 
0365 
0405 
0432 



3225 
1383 
2894 
0614 
0102 



4079 



0858 



3256 
1402 
2895 
2006 
0127 



1405 
2897 
2026 
0132 
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1465 1468 1492 1496 2010 2030 2882 2886 2888 2889 2891 



2392 
0137 



2867 
0175 



0200 0205 1167 1224 1235 



0066 
0140 

0117 0126 

0122 0123 0124 

0131 

0149 



0210 

0199 

0195 0196 0197 

0204 

0246 

0240 0241 0242 

1181 1205 1293 1306 1316 

1214 1302 

3257 

3229 

0771 0799 0812 0833 0836 0840 0850 



0346 0362 0389 0428 

0367 0369 0371 0373 0375 0378 0380 0382 0384 0386 0392 0394 0396 0399 



CROSS-REFERENCE 



PAGE 



SYN80L 


LEM 


VALUE 


DEFN 


REFE 


RENCES 




BL5E 


00004 


000466 


00370 


0432 






BL5F 


00004 


00046 E 


00372 


0432 






BL5G 


00004 


000476 


00374 


0432 






BL5K 


00004 


00047 E 


00376 


0431 






BL5L 


00004 


00048A 


00379 


0431 






BL5P 


00004 


0004 E 6 


00402 


0431 


0431 




BL5PER 


00004 


0004DE 


00400 


0431 






BL5RER 


00004 


0004D2 


00397 


04 33 






BL5S 


00004 


000492 


00381 


042 9 






BL5T 


00004 


00049A 


00383 


0430 






BL5U 


00004 


0004A2 


00385 


0430 






BL5Z 


00004 


0004B6 


00390 


0430 






BL51 


00004 


0004AA 


00387 


0429 






BL52 


00004 


0004CA 


00395 


0428 






BL53 


00004 


0004EA 


00403 


0430 






BL59 


00004 


0004C2 


00393 


0428 






BODY 


00001 


00141C 


01365 


1168 


1195 1212 1244 1245 1247 




BSP 


00004 


001788 


01610 


1602 






BWZ 


00004 


00064C 


00436 


0435 


3228 




ByZA 


00004 


0006FE 


00481 


04 57 


04 97 




BWZB 


00004 


0006 E A 


00476 


0455 


0494 




BWZBA 


00004 


00060E 


00473 


0453 


0491 




BW2BCH 


00004 


000742 


00498 


0468 


0471 0474 0480 0484 0487 0490 


0493 0496 


BWZLl 


00004 


000676 


00447 


0437 






BWZW 


00004 


0006C6 


00467 


0449 






BWZW^ 


00004 


000736 


00495 


0465 






BWZWB 


00004 


00072A 


00492 


0463 






BWZWBA 


00004 


0007 IE 


00489 


0461 






Byzi^o 


00004 


000712 


00486 


0459 






BWZO 


00004 


0006D2 


00470 


0451 


0488 




C 


00004 


000754 


00506 


0505 


3258 




CARD 


00004 


00370C 


03494 


2211 


2236 2251 2261 2938 




CARTAB 


00006 


002F58 


03045 


2192 


2192 2193 2207 2986 3031 3043 


3044 3641 


CC 


00006 


00 16 5 A 


01530 


1529 


3261 




CCAFSK 


00004 


00 16 B A 


01553 


1538 






CCDONE 


00004 


001734 


01587 


1546 


1561 




CCIMSK 


00004 


00I6DE 


01562 


1537 






CCIHSP 


00004 


0016A2 


01547 


1540 






CCL2 


00004 


001676 


01536 


1532 






CCNOW 


00001 


001706 


01572 


1552 






CCl 


00004 


0016CE 


01558 


1556 






CC2 


00004 


0016F6 


01568 


1566 






CDLOAD 


00006 


00248E 


02 328 


2285 






CHGA 


00004 


002212 


02175 


2241 






CHGRDCD 


00006 


002242 


02188 


2162 






CLEAR 


00006 


00236C 


02268 


2270 






CLR 


00004 


0026B6 


02495 


2293 






CLRl 


00006 


0026BE 


02497 


2499 






CLl 


00004 


00078C 


00522 


0507 


0519 




CL4 


00004 


000776 


00515 


0509 






COUMTER 


00004 


002E16 


02962 


1453 


1584 




CPR 


00001 


0032F4 


3284 


03 Bl 


0383 0385 0387 549 2396 




CPRTBL 


00001 


000815 


00557 


0538 






CROEOF 


00001 


0032FC 


03287 


0361 


2914 2947 




CS 


00004 


00099E 


00632 


0631 


3224 
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PAGE 



SYMBOL 


im 


VALUE 


DEF!^ 


REFF 


kEMCES 
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CSCCH 


00004 


0009CS 


00642 


0640 






























CSLl 


00002 


0009CE 


00644 


0633 






























CSLIA 


00006 


0009E0 


00650 


0649 






























CSL4 


CO 00 4 


0009C4 


00641 


0635 






























CS2 


00004 


0009F6 


00656 


0652 






























CS3 


00004 


0009FA 


0065 7 


0655 






























CU 


00004 


001744 


01593 


1592 


3227 




























CUCCk« 


00008 


0017F0 


01640 


1606 


1608 


1610 


1612 


3327 






















CUDCB 


00004 


003694 


03328 


1614 






























CUECB 


00004 


0036A0 


03330 


1615 


1626 


3325 


























CUIOB 


00008 


0036B0 


03322 


1616 


1622 




























GUI 


00004 


001794 


01613 


1607 


1609 


1611 


























CVA03A 


00004 


002006 


02892 


2890 






























CVAD3B 


00004 


0O2D12 


02895 


2893 






























CVAD34 


00004 


002CB2 


02867 


2007 


2027 




























CVAD4A 


00004 


0O2C2E 


02828 


2850 


2852 


2854 


























CVAD4B 


00004 


002C8A 


02851 


2B4B 






























CVA04C 


00004 


002C92 


02853 


2846 






























CVAD4D 


00004 


002C9A 


02855 


2841 


2843 




























CVAD43 


00004 


002C28 


02 826 


0063 


0068 


0071 


0259 


026 5 


0303 


0309 


0411 


0414 


0441 


0444 


0513 


0516 


0592 


0596 










0604 


0642 


0672 


0679 


0682 


0702 


0709 


0712 


0731 


0734 


0762 


0825 


0877 


0880 


0934 










0939 


0942 


1002 


1005 


1021 


1024 


1046 


1049 


1068 


1119 


1161 


1164 


1647 


1650 


1749 










1752 


1691 


1897 


2004 


2021 


2024 


2039 


2042 


2095 


2098 


2735 










CW 


00004 


000A76 


00694 


0693 


3267 




























CWLl 


00004 


OOOARF 


00714 


0699 






























CWL4 


00004 


000 A9 2 


00701 


0697 






























CWL7 


00004 


OOOAAA 


00708 


0695 






























CI 


00002 


000798 


00525 


05 32 






























C2 


00002 


0007B4 


00533 


0528 






























C3 


00006 


0007BC 


00536 


0544 






























C4 


00004 


0007E8 


00545 


0552 


0554 




























C4A 


00006 


0007F8 


00549 


0546 






























C5 


00004 


000802 


00551 


0530 


0540 




























C6 


00004 


000 8 OA 


00553 


0541 






























D 


00004 


00196C 


01746 


1745 


3235 




























DCHAR 


00001 


0032F5 


03285 


0409 


0418 


0446 


0448 


0450 


0452 


0454 


0456 


0458 


0460 


0462 


0464 


0748 


074 9 


0751 










0753 


0755 


0885 


1425 


1428 


1431 


1433 


1530 


1533 


1536 


1539 


1541 


1547 


1553 


1555 










1562 


1563 


1565 


2100 


2101 


2103 




















DCHARTBL 


00004 


00054C 


00428 


0357 






























ODLEN 


00002 


0026B4 


02491 
































DECADD 


00004 


001414 


01360 


11B8 


1354 


1341 


1343 
























DECIMAL 


00001 


001418 


01361 


1174 


1187 


1330 


























DECON 


00004 


00139A 


01330 


1323 


1327 




























DGCCIO 


00004 


00225E 


2194 


2219 






























DGCC2 


00004 


0022 C 6 


02220 


2191 


2204 




























0GCC3 


00004 


00228C 


02205 


2197 






























DGCC4 


00004 


00227C 


02201 


2199 






























DGCC5 


00004 


002266 


02196 


2203 






























DGCC7 


00001 


0022FC 


02233 


2189 


2217 




























DGCUR 


00004 


002F54 


03044 


2207 


2970 


3021 


3037 
























DGEND 


00004 


002F50 


03043 


22 06 


2218 


2975 


3028 
























DGERROR 


00004 


00 2FEC 


3051 


3026 






























DGEXIT 


00004 


002F3C 


0303 8 


2966 






























DGSAVE 


00004 


C02FE4 


03050 


2962 


3038 




























DGl 


00004 


002 E8 8 


02992 


2964 
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SYMBOL 


LEN 


VALUE 


DEFM 


REFERENCES 




DGIO 


00004 


002E70 


02986 


2976 






DGll 


00002 


002 E 38 


02971 


2978 


2985 


2989 2991 


DG12 


00004 


002E78 


02988 


2982 






DG13 


00004 


002E80 


02990 


2984 






DG14 


00004 


002E4C 


02977 


2987 






0G2 


00004 


002EEA 


03017 


2993 


2995 




DG20 


00004 


003000 


0305 7 


3054 






0G3 


00004 


002F28 


03033 


2997 


2999 




DG4 


00004 


002F38 


03037 


2973 


3023 




DG5 


00004 


002F20 


03031 


3029 






DG6 


00004 


002EFC 


03022 


3009 


3013 


3015 3019 


DG7 


00002 


002 EF6 


03020 


3010 


3014 


3016 3036 


DG8 


00004 


002ED2 


03011 


3008 






DG9 


00004 


002EE2 


03015 


3012 






DIS 


00004 


0026D4 


02506 


2295 






DISPHSG 


00002 


0027A4 


02554 


2538 


2539 


254 2 254 3 


DISl 


00004 


0026D8 


02507 


2512 






0IS2 


00002 


0026F0 


02513 


2508 






DIS3 


00006 


002716 


02522 


2520 






DIS4 


00006 


002726 


02525 


2524 






DOLLAR 


00004 


001384 


01324 


1329 






DOLSIGf^ 


00004 


001420 


01369 


1229 


1356 




DSMRKR 


00001 


00280C 


02558 


2521 


2522 


2538 


DUMP 


00004 


002A26 


02682 


2650 


2653 


2656 2670 


DUNPAOR 


00002 


002A4A 


02691 


2657 


2658 


2669 


OUHPCLR 


00006 


002A3A 


02687 


2684 






DUHPCORE 


00004 


002996 


02647 


2305 






DUHPDONE 


00004 


002A02 


02672 


2660 






DUHPLOQP 


00004 


0029C8 


0265 8 


2671 






OUHPOP 


00004 


002A46 


02690 


2683 






0UMPSAV2 


00008 


00 2A50 


02692 


2664 


2665 


2685 2688 


DUHPSW 


00002 


00154C 


01452 


2649 


26 72 




Dl 


00006 


001996 


01758 


1766 






DIA 


00002 


001980 


01764 


1760 


1762 




DIO 


00004 


001800 


01860 


1804 






Dll 


00004 


00 IB 10 


01865 


1861 






D12 


00002 


00183 E 


01877 


1875 






02 


00002 


0019CA 


01771 


1768 






D3 


00004 


0019D2 


01775 


1859 


1864 




D4 


00004 


0019DA 


01778 


1797 






D4A 


00004 


DOIAIO 


01793 


1790 






D5 


00002 


001A14 


01794 


1789 


1792 




D6 


00004 


001A34 


01803 


1799 


1801 




D7 


00004 


001A44 


01808 


1836 






08 


00004 


001 A 86 


01827 


1824 






D<^ 


00004 


001A9A 


01832 


1827 


1829 


18 30 1831 


D9A 


00004 


OOIACE 


01847 


1845 






ENDCRTP 


00001 


002FE2 


3049 








ENDISP 


00001 


00280C 


02557 


2554 






EOC 


00004 


002D0A 


02946 


3512 






EOJIAR 


00006 


000992 


00628 


0606 


2125 


3637 


EXIT 


00004 


002988 


02642 


2636 






FIRST 


00001 


0014IA 


01363 


1260 


1286 


1290 1300 


FIRSTDOL 


00001 


00141 F 


01368 


1175 


1264 


1354 


FLDOL 


00004 


00137C 


C1322 


1288 
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3030 3032 3035 3054 



2548 2549 



1312 
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SYMBOL 



LEM VALUE DEFN 



REFERENCES 
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FLOAT 

FNDLGA 

FMOLGB 

FNOLNG 

FMORIV 

FNORVl 

FNDRV2 

GETCORE 

H 

HALTWTQ 

HLOBCH 

HLTADARA 

HLTIAR 

HLTWTO 

HI 

HIA 

H? 

H3 

H4 

H6 

IHB0028A 

IHB0029 

THB0034 

IHB0034A 

IHB0040A 

I H 800 41 

IHB0042A 

IHB0043 

IHB0062 

IHB0062A 

IHB0063 



00001 
00006 
0000 2 
00002 
00004 
00006 
00004 
00001 
00004 
00004 
0000 3 
00006 
00006 
00004 
00002 
00004 
00004 
00006 
00004 
00002 
50004 
00002 
00001 
00001 
0000? 
00002 
00001 
00002 
00001 
00001 
00002 
00001 



001419 
003100 
003112 
0030FE 
003118 
003120 
003136 
002180 
000896 
002D1E 
OOOAOA 
00098C 
000998 
002D2C 
0008 B6 
0008F2 
000922 
00093A 
00094E 
000966 
00097 A 
0022 10 
00220F 
0022F6 
0022F6 
002452 
002451 
002552 
002552 
002AFE 
002AFE 
002B2B 



01362 
03137 
3141 
03136 
03144 
03146 
03151 
02130 
00567 
02900 
00661 
00627 
00629 
02905 
00575 
00589 
00600 
00606 
00610 
00617 
00622 
02173 
02172 
02229 
02230 
0232 
02319 
0238 2 
02381 
02751 
02752 
02765 



1170 
3140 
3138 
07B7 
0764 
3 149 
3147 
2123 
0566 
0600 
0638 
0578 
0578 
0579 
0568 
0583 
0582 
0602 
0608 
0577 
0626 
2165 
2169 
2226 
2225 
2312 
2316 
2374 
2378 
2748 
2 747 
2762 



1232 1322 



0827 

0853 1070 1136 1613 2404 2603 2712 



2128 
3266 

0659 

0579 0594 0598 0619 0620 0621 
0606 

0580 0584 0585 0586 0587 0589 0594 0598 0599 
0570 0572 

0588 0590 

3619 

0593 0597 



IHB0064 
IHB0064A 
I HB 006 5 A 
IHB0066 

IHB0067 

IHB0067A 

IHB0068 

IHB00 6 8A 

IHB0073 

IHB0073A 

ILEGLN 



ILEGOP 



00001 
00002 
00002 
00001 

00001 
00002 
00001 
0000 2 
00001 
00002 
00004 



002B5A 
002B5A 
002C1E 
002CID 
002053 
002D54 
002D92 
002D92 
00302E 
0030 2 E 
002B36 



02779 
02780 
02818 
02817 

02909 
02910 
0292 5 
02926 
3061 
03062 
02770 



00004 002B08 02756 



ILEGTAPE 00004 002ADC 02742 

D0 2CAF C2861 
003403 03303 
001424 01370 
000F42 C1036 



IXT.MP 


0000 1 


JOBNaME 


0000 8 


LASTDIG 


00004 


LCA 


0000^ 



LCALl 



00004 000F7A 01051 



2 776 
2775 
2810 
2814 
2906 
2905 
2922 
2921 
30 58 
3057 
0061 
1019 
1B89 
0466 
3237 
3269 
3150 
2826 
2157 
1248 
1035 
1041 



0257 
1044 
2001 
0757 

3238 
3270 

2842 
2279 
1340 
3242 



0301 0344 0351 



353 



J4; 



511 



574 0637 0670 0700 0729 0932 1000 



1159 
2019 
1063 
3239 



2844 



1378 
2037 
1434 
3240 



1390 
2093 
1605 
3245 



1401 1419 1464 1478 1491 1507 1534 1594 1645 1747 



3197 

3248 



3207 
3250 



3217 


3220 


3221 


3222 


3223 


3226 


3233 


3236 


32 51 


3252 


3253 


3254 


3255 


3262 


3264 


3268 



CROSS-REFERENCE 



PAGE 



SYMBOL 


LEN 


VALUE 


DEFN 


REFEREfs^CES 




















10/28/ 


LCALIA 


00004 


O00F7E 


01052 


1057 
























LCAL4 


00004 


000F70 


01048 


1039 
























LCAL7 


00004 


00 OF 66 


01045 


1037 
























LCAB 


0000^ 


000F96 


01059 


1043 
























LDTCCH 


00008 


003648 


03315 


2408 


3651 






















LDTCCWl 


00008 


00 3650 


03316 


2151 
























LOAO^«D 


00002 


003082 


03086 


0766 


0855 


1072 


1138 


2407 


2606 


2715 












LSTBCH 


00004 


0032F8 


3286 


0422 


0498 


2738 




















M 


00004 


001800 


D1644 


1643 


3219 






















MA. 


00004 


00IB4C 


1884 


1883 


3218 






















HACREGSV 


00004 


0035E8 


03310 


0774 


0775 


0862 


0863 


1076 


1077 


1141 


1142 


1429 


1442 


1443 


1575 1576 1618 1619 










2117 


2119 


2158 


2159 


2176 


2 1 79 


2205 


2208 


2220 


2221 


2244 


2245 2257 22 58 2307 










2308 


2369 


2370 


2410 


2411 


2535 


2536 


2608 


2609 


2625 


2627 


2673 2674 2718 2719 










2742 


2743 


2756 


2757 


2770 


2771 


2805 


2806 


2900 


2901 


2916 


2917 2934 2935 2953 










2954 


3051 


3052 


3070 


3071 


3090 


3091 


3114 


3115 


3178 


3179 




MAL4 


00004 


001B82 


01899 


1887 


1895 






















MAL4A 


00004 


001BC4 


01918 


1915 
























MAL4B 


00004 


001BD8 


01923 


1918 


1920 


1921 


1922 


















MAL4C 


00004 


001C14 


01941 


1938 
























MAL4D 


00004 


001C28 


01946 


1941 


1943 


1944 


1945 


















MAL4E 


00004 


001C64 


01964 


1961 
























MAL4F 


00004 


001C78 


01969 


1964 


1966 


1967 


1968 


















MAL4G 


00004 


001CA4 


01982 


1979 
























MAL4H 


00004 


OOICAC 


01984 


1982 
























MAL4I 


00004 


OOICCC 


01994 


1992 
























HAL4J 


00004 


001CD4 


01996 


1994 
























MAI 


00004 


001B64 


01890 


1885 
























MBC 


00004 


000074 


00906 


0886 


0923 






















NBCl 


00004 


000084 


00910 


0907 


0908 






















HBC2 


00004 


000D9A 


00916 


0913 


0914 






















MBD 


00004 


OOOOOC 


00876 


0754 


0756 






















M801 


00004 


000D38 


00889 


0904 
























MBD2 


00004 


000D48 


00893 


0890 


0891 






















MBD3 


00004 


000D5F 


00899 


0896 


0897 






















MCE 


00004 


00 10 EC 


01158 


1157 


3260 






















MCEl 


00004 


001148 


0118 2 


1180 


1226 






















MCEIA 


00004 


001164 


01189 


1186 
























MCEIO 


00004 


001264 


01285 


1275 


1292 


1294 


1296 


1298 


1303 


1305 


1307 


1309 


1311 


1315 


1319 1321 


MCEIOA 


00004 


0013 74 


01320 


1317 
























MCEIOB 


00004 


00 12 EC 


01287 


























MCEIOC 


00004 


0012F8 


01290 


1279 
























MCEIOD 


00004 


001304 


01293 


1291 
























MCEll 


00004 


001314 


01297 


1270 


1277 


1283 




















MCE12 


00004 


001338 


01306 


1301 
























MCE 13 


00004 


001348 


01310 


1281 
























MCE14 


00004 


001362 


01316 


1313 
























MCE16 


00004 


0013C2 


01340 


1333 
























MCE 16 A 


00004 


0013D8 


01345 


1342 
























MCE168 


00002 


0013DC 


1 346 


1344 
























MCE16C 


00004 


0013AE 


01335 


1339 
























MCE16D 


00006 


0013E2 


01348 


1350 
























MCE2 


00004 


0011 A4 


01205 


1200 


1202 






















MCE3 


00004 


CO 1 1 AC 


01207 


1194 


1198 


1236 




















MCE3A 


00004 


0011B6 


01210 


1196 


1204 


1206 




















MCE3R 


00004 


001 ICE 


01216 


1211 


1213 























CROSS-REFERENCE 



Page 



SYMBOL 


LEN 


VALUE 


DEF^ 


REFE 


REMCES 


MCE4A 


00002 


OOllDC 


01220 


1234 


1251 1253 


NCE5 


00004 


00 11 EC 


01225 


1209 


1219 1223 


HCE5A 


00 002 


OOllOE 


01221 


1231 




MCE5C 


00004 


0011F8 


01228 


1217 




MCE6 


00004 


001216 


01235 


1190 


1192 1215 


HeE6A 


00004 


0012 3C 


01244 


1240 


1242 


MCE7 


00004 


0012 54 


01250 


1246 




MCE8 


00004 


001274 


01258 


1227 




HCE8A 


00006 


001290 


01265 


1263 


1289 


HCE9 


00004 


0012BE 


01276 


1268 


1272 


MOM 


00004 


001054 


02034 


2033 


3246 


HCMBUMP 


00002 


OOIDCA 


02067 


2065 




«C«CHCLR 


00006 


OOIODE 


02074 


2059 




MCHCHHOV 


00006 


0010E4 


02075 


2058 




HCMCHORC 


00006 


OOIOFO 


02077 


2061 




HCHDECR 


00002 


001DA8 


02057 


2053 


2072 


HCMHIT 


00002 


001D90 


02050 


2047 




HCHLl 


00004 


001D78 


02044 


2035 




MCNSCAN 


00006 


00107E 


02046 


2049 




MCMSW 


00004 


001DC2 


02065 


2044 


2054 2071 


mCMWHCLR 


00006 


OOIDEA 


02076 


2060 




MCM256 


00004 


001DA4 


02056 


2069 




HCS 


00004 


000DB8 


00927 


0926 


3232 


MCSLl 


00004 


C00DF4 


00944 


0928 


0937 


MCSLIA 


00004 


000E14 


00952 


0959 




MCSLIB 


00002 


000E24 


00956 


0951 




HCSLIC 


00006 


000E34 


00961 


0975 




MCSLIE 


00004 


000E62 


00972 


0966 


0968 0970 


HCSLIF 


00004 


000 E 72 


00976 


0973 




MCSLIG 


00004 


000E7E 


00979 


0964 




HCSLIH 


00004 


000E96 


00985 


0980 


0982 


NCSLII 


00004 


OOOEAE 


00991 


0986 


0988 


MCSL7 


00004 


n n n n c A 

\j \j »,p i> i_ \j 


nnonc 


na-xn 




MCW 


00004 


000AD2 


00721 


0720 


3243 


NCWLl 


00004 


00080A 


00736 


0726 




^ICMLIA 


00004 


OOOBIC 


00740 


0737 


0738 


HCWLIB 


00006 


00080E 


00737 


0746 




MCWL4 


00004 


OOOBOO 


00733 


0724 




MCWL7 


00004 


000 AF 6 


00730 


0722 




MOWS 


0000 6 


000B38 


00748 


0728 




NIMPRD 


00001 


001964 


01742 


1675 


1678 1737 


HH 


00004 


000EB6 


00995 


0994 


3259 


HHll 


00006 


OOOEEC 


01010 


0996 


1008 


MNL4 


00004 


000ED8 


01004 


0998 




mo 


0000 1 


002318 


02242 


2161 


2177 2329 


MOVOOL 


00002 


001394 


01328 


1325 




NOV EP ARM 


00006 


00217A 


02129 


2127 




MPYSAV 


00004 


001968 


01743 


1652 


1735 


MURE X IT 


00004 


00375C 


03424 


3422 




MURLIST 


00001 


003758 


03421 


3390 


3460 


VIZ 


00004 


OQOEFE 


01016 


1015 


3231 


MZLl 


00004 


000F22 


01026 


1017 




MZLIA 


00004 


000F32 


01030 


1027 


1029 


m 


00004 


001824 


01655 


1660 




MIO 


00002 


00194 8 


01734 


1731 





10/28/71 



1257 



0984 0990 0992 



2403 



CROSS-RhFirRENCE 



PAGE 



SYNBOL 


LE^^ 


VALUE 


DEFf^ 


REFE 


REMCES 
























10/28/ 


Mil 


00002 


00195F 


01740 


173 6 






























M2 


00004 


00183C 


166 1 


1657 






























M3 


00004 


001860 


01670 


1666 


1668 




























N4 


00004 


0018 74 


01675 


1671 


1673 




























m 


00004 


001882 


01679 


1677 


1733 




























Hh 


00004 


001894 


01684 


1726 






























HI 


00004 


0018A4 


01690 


1715 






























m 


00004 


001860 


01707 


1704 






























H9 


00004 


00192C 


01727 


1686 






























NXTOP 




0031 BE 


03195 


0152 


0154 


0212 


0247 


0287 


0331 


0360 


0363 


0388 


0402 


0406 


0425 


0427 


0428 


0428 










0429 


0430 


0430 


0431 


04 31 


04 32 


0433 


04 33 


0469 


0472 


0475 


0477 


0479 


0482 


0485 










0503 


0548 


0550 


0611 


0616 


0658 


0677 


0689 


0691 


0707 


0718 


0744 


0747 


0820 


0875 










0905 


0921 


0924 


0978 


1013 


1033 


1058 


1114 


1155 


1259 


1331 


1336 


1353 


1355 


1358 










1380 


1395 


1409 


1424 


1456 


1472 


1485 


1501 


1519 


1521 


1523 


1564 


1588 


1630 


1741 










1770 


1880 


1997 


2011 


2031 


2066 


210 5 


2108 


2335 


2367 


2446 


2741 


3189 


3215 


3216 










3230 


3244 




























OKSTT 


00001 


00255C 


02386 


2334 


2342 


2445 


2500 
























OKWTOR 


00004 


0021EC 


02161 


2157 






























OVRFiO 


00001 


0032F3 


03283 


0153 


0390 


0391 


1769 


2395 






















P 


00004 


0014 58 


01387 


1386 


3211 




























PAKT 


00008 


003510 


330 5 


0618 


0619 


2360 


2361 


2525 


2526 


2579 


2580 


2785 


2786 


2791 


2792 








PANEL 


00002 


0029 60 


02783 


2755 


2769 


2929 


























PANEL 1 


00006 


002BB4 


02802 


2801 






























PCHARA 


00080 


0033B3 


03302 


3068 


3069 


3080 


























PCHARAA 


00001 


003362 


03300 


1520 


1522 


1524 


1526 


2639 


3075 


3081 


















PCHARl 


00080 


003363 


03301 


3080 






























PCHERR 


00001 


00330F 


03296 


0400 


0401 




























PLl 


00004 


001474 


01394 


138B 






























PNLWTOR 


00004 


002BD4 


02810 


2786 


2787 


2788 


278 9 


2790 


2792 


2793 


2794 


2795 


2795 


2802 


2803 








posi ■■■ ■ ■ 


00001 


0032FD 


03288 


0073 


0136 


0141 


0209 
























PRNTBUFF 


00001 


003518 


03307 


1438 


1439 


1445 


1448 


1545 


1550 


1551 


1559 


1560 


1571 


1580 


1585 


2254 


2530 


2531 










2532 


2533 


2534 


2542 


2546 


2 547 


2548 


2951 


2952 


2958 


2963 


2965 


2968 


2992 


2994 










2996 


2998 


3003 


3039 


3040 


3040 




















PRNTDCB 


00004 


0036F8 


03370 


1440 


1447 


1573 


1579 


2632 


2677 


2949 


2957 
















PRTERR 


00001 


003311 


03298 


0403 


0404 




























PRTP12 


00001 


0032F0 


03280 


0395 


2980 


2990 


3000 


3018 


3033 




















PRTP9 


00001 


0032EF 


03279 


0393 


2979 


2988 


3001 


3017 


3034 




















PUMCH 


00004 


00 30 3 B 


03066 


1391 


1394 


1404 


1408 


1480 


1484 


1495 


1500 
















PUNCH R 


00004 


00377C 


03440 


2635 


2638 


3066 


3074 
























R 


00004 


00142A 


01374 


1373 


3208 




























RORERR 


00001 


003310 


03297 


0397 


0398 




























READ 


00004 


00205C 


02914 


1379 


1382 


1403 


1407 


1467 


1471 


1494 


1499 


2330 














REA02 


00006 


00209C 


02930 


2915 






























RETURN 


00004 


003678 


03321 


0608 


2347 


2397 


























RLl 


00004 


00143E 


01379 


1375 






























RL4 


00006 


001446 


01381 


1377 






























RP 


00004 


00147C 


01398 


139? 


3212 




























RPLl 


00004 


0014A2 


01407 


1399 






























RQSTIN 


00050 


00245C 


02324 


2156 


2156 


2167 


2234 


2281 


22B2 


2284 


2286 


2288 


2290 


2292 


2294 


2296 


2298 


2300 










2302 


2304 


2306 


2306 


2314 


2 344 


2355 


2360 


2368 


2368 


2376 


2453 


2506 


2517 


2522 










2525 


2566 


2574 


2 5 79 


2601 


2602 


2710 


2711 


2804 


2804 


2812 


3647 








RQSTND 


00001 


00330D 


03294 
































RT 


00004 


000B62 


00761 


0750 






























RTCCH 


00008 


003658 


03317 


0773 


1075 


3625 


























RTGCWl 


00008 


003660 


03318 


2150 































CROSS-REFEREMCE 



PAGE 



SYMBOL 


LEN 


VALUE 


DEFN 


REFE 


RENCES 
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RTW 


00004 


00 OF A A 


01067 


1060 


























RTWl 


00004 


001002 


01093 


1109 


























RTW2 


00004 


001030 


01104 


1096 


























RTh2A 


00004 


00103E 


01107 


1103 


























RTW3 


00004 


001056 


01113 


1094 


nil 
























RTl 


00004 


000B8C 


00772 


0769 


























RT3 


00004 


OOOBDA 


00796 


0794 


0806 
























RT3A 


00006 


000BF6 


00802 


0800 


























RT4 


00004 


OOOCOC 


00807 


0797 


























RT5 


00006 


OOOCIC 


00811 


0808 


























RT6 


0000 6 


000C2A 


00814 


0809 


























RT7 


00006 


0O0C30 


00815 


0810 


0813 
























RWD 


00004 


001778 


01606 


1596 


























RWOCCW 


0000 B 


003670 


03320 


2716 


3657 
























RWDCND 


00004 


002A7C 


02710 


2301 


























RWU 


00004 


0017D0 


01631 


1600 


























RWUA 


00001 


0017E2 


01636 


1634 


























RWUCLOSE 


00004 


003196 


03178 


1639 


























SAR 


00004 


OOICDC 


02000 


1999 


3247 
























SAVB 


00004 


003300 


03290 


0159 


0217 
























SAVCSW 


00008 


003630 


03311 


0790 


1089 


3161 


3166 


3169 


3174 
















SAVFAREA 


00004 


0035A0 


03309 


0776 


0864 


1076 


1143 


1 444 


1577 


1620 


2116 


2118 


2160 


2180 


2209 


2222 2246 2259 










2309 


2371 


2412 


2537 


2610 


2626 


2675 


2720 


2744 


2758 


2772 


2807 


2902 2918 2936 










2955 


3053 


3072 


3092 


3116 


3180 
















SAYEOO 


00004 


0026B0 


02490 




























SAVES 


00004 


0026AC 


02489 




























SBR 


00004 


OOIDOC 


02014 


2013 


3263 
























SBRLl 


00004 


001D40 


02C28 


2017 


























SBRL4 


00004 


001D2E 


02023 


2015 


























SENSE A 


00001 


0032E8 


03272 


03 59 


2470 
























SENSES 


00001 


0032E9 


03273 


0364 


























SENSEC 


00001 


0032EA 


03274 


0366 


























SENSED 


00001 


0032EB 


03275 


0368 


























SENSEE 


00001 


0032EC 


03276 


0370 


























SENSEF 


00001 


0032E0 


03277 


0372 


























SENSEG 


00001 


0032EE 


03278 


0374 


























SET8CH 


00004 


002AC6 


02735 


040 8 


0660 


1384 


1393 


1406 


1422 


1458 


1469 


1482 


1497 


1514 


1590 




SETBLK 


00004 


003774 


03433 


3427 


























SETBSl 


00004 


002148 


02115 


0051 


005 2 


2154 


3435 




















SIGOIG 


00001 


00l4iE 


01367 


1171 


1243 


1274 


1332 




















SIGNDOL 


00001 


001428 


01371 


1176 


1228 


1352 






















SIMCOR 


00001 


000000 


04077 


0053 


1438 


1454 


2152 


2152 


2328 


2328 


2331 


2332 


2425 


2443 


2495 


2652 2655 2665 










2666 

3083 
2140 


2667 


2849 


2851 


2853 


2931 


2932 


2933 


2943 


2944 


2951 


3041 


3068 30 79 3082 


SINLIMIT 


C0004 


003304 


03291 


2855 
























SIMlAOl 


000'^ 1 


000000 


00001 




























SINTBL 


00004 


001B4 8 


01881 


1870 


























SKP 


00004 


001790 


01612 


1604 


























SMOILG 


00006 


002420 


02306 


2352 


2357 


2363 


2459 


2461 


2469 


2510 


2516 


2519 


2528 


2570 


2576 


2582 


ss 


00004 


0015FE 


1504 


1503 


3241 
























SSDGl 


00004 


00163A 


01520 


1516 


























SSDG2 


00004 


001626 


01515 


1505 


























SSDG3 


00004 


001642 


01522 


1518 


























SS0G4 


00004 


00160F 


01508 




























SSDG5 


00004 


00 164 A 


01524 


1509 
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SYMBOL 

SSDG6 

SSDGT 

SSEND 

SSIN 

SSINI 

START 

STARTl 

START2 

STARTS 

START 4 

STRIPWM 

STRST 

SUPRES 

sw 

SWLl 
SWL4 
SWL7 

TAPADR 

TAPE ARE A 

TAPEDCBO 

TAPEDC51 

TAPEDCB2 

TAPEDCB3 

TAPEDCB4 

TAPE0CB5 

TAPE0CR6 

TAPEDCB7 

TAPEDCB8 

TAPE0CB9 

TBHNTH 

T8TENS 

T8TRCP 

-r rjT /. t tKi 
I r> t -tui'* 

TCPR 
TCR 

TEKPl 



TEMP2 

TER^INAT 

TESTA 

TESTAA 

TMOCB 

TNECB 

TNI OB 

TNPARA 

TPCCW 

TPCSW 

TPEOF 

TPERR 

TPLDl 

TPLD2 

TPLD3 

TPLOAO 

TPTBL 



LEN VALUE 



REFERENCES 



10/28/71 



00004 
00001 
00006 
00004 
00004 
OOOOA 
00004 
00004 
00006 
00006 
00001 
00002 
00001 
00004 
00004 
00004 
00004 
00004 
00004 
00004 
00004 
00004 
00004 
00004 
00004 
00004 
00004 
00004 
00004 
00002 
00002 
00016 

rt rt n rt o 

00001 
00002 
00001 



00001 

00004 
00004 
00004 
00004 
00004- 
00008 
000ft 
00004 

00001 
00001 
00001 

00004 
00006 
00004 
0D004 

00 00 4 



0016 52 
00 16 IE 
002670 
00262C 
00263A 
0024B0 
0024CA 
0024E2 
0024-F8 
002516 
001FE6 
00255E 
00330C 
OOOAOE 
000A56 
000A2A 
000A42 
00 36A4 
003308 
0040 IC 
004050 
004084 
00 40 B 8 
0040EC 
004120 
004154 
004188 
0041BC 
0041F0 
00383C 
00393C 
0002A4 

r\rt -2 n n f 
\J^J 3 o o u 

000812 
000813 
002CB0 



002CB1 
002958 
00 2216 
00 22 2 A 
002A6C 
002A78 
002A58 
003312 
002A68 
002A61 
0032F2 
0032F1 
0025D4 
0025F6 
002604 
00257C 
002684 



01526 
01512 
02470 
0245 3 
02456 
02342 
02349 
02355 
02360 
02368 
02087 
02390 
03293 
00664 
00684 
00671 
00678 
03335 
03292 
03761 
379 3 
03825 
03857 
03B89 
03921 
03953 
3985 
04017 
04049 
03545 
03561 
00248 

n -J c c 1 

00555 
00556 
02862 



02863 
0262 5 
02176 
02182 
02701 
02705 
02694 
03299 
02700 
02699 
03282 
3281 
02427 
02435 
02437 
0240 2 
02479 



0522 
0536 
0271 
0967 
1791 
1757 
0607 

2323 
0772 
0782 
0778 
2188 
0773 
3161 
0376 
0379 
2439 
2428 
2434 
2287 
3145 



1527 



2354 



0963 
3234 



1511 
1525 
2457 
2283 
2468 
2291 
2346 
2350 
2359 
2343 
2076 
2289 
0945 
0663 
0669 
0667 
0665 
1638 
0789 
3335 
3336 
3337 
3338 
3339 
3340 
3341 
3342 
3343 
3344 
2831 
2839 
0085 3607 



0547 
05 37 
0281 
0969 
1793 
1758 
2303 

2385 

0860 
0S70 
0866 
2190 



0377 
2393 



0971 0983 1169 1256 1258 1273 1284 1297 1310 



3155 3345 
0832 1092 



0549 
05 38 
0282 
0985 
1802 
1759 
3065 

2821 
1074 
1084 
1080 
2194 



3347 
1121 



3349 
1134 



3351 
2148 



0551 
0539 
0315 
0987 
1803 
1761 



1139 
1149 
1145 
2212 



0553 
539 
0325 
0989 
1857 



326 
118 3 

185 8 



2405 
2418 
2409 
2216 



2 604 
2616 
2414 
2234 



2394 
3164 



3172 
3173 



3176 



3353 
2149 



3355 
2150 



3357 
2151 



3359 
2267 



3361 
2426 



3363 
3170 



3365 3672 



0416 
1225 
2103 



0417 
12 50 

2104 



0418 
1252 

2358 



0949 
1265 
2 359 



0954 
1287 
2523 



0958 
1756 
2 524 



0961 
1763 
2577 



0962 
1767 
2578 



0965 
1775 



2713 
2697 
2422 
2237 



2726 
2612 
2262 



3157 
2717 

2930 



3162 
2 722 
2932 



3159 
2939 



3643 



0861 1075 1140 2408 2607 2716 
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SYHBOL 



LE^ 



VALU! 



DEFN 



REFERENCES 



10/28/71 



TPTEST 

TPTIOl 

TPTI02 

TPTI03 

TRANS 

TREI 

TRGPWH 

TRIE 

TRI4BC 

TRT8 

TRTGHWRM 

TRWDHK 

TR4IBC 

TSSA 

TSTOPEN 

TYPTBL 

UROPEN 

W 

WLl 

WL4 

WM 

WML 2 

WHL20A 

WH256 

WORK? 56 

WP 

WPLl 

WR 

WRITE 

WRLl 

WRP 

WRPLl 

WT 

WTCCWl 

WTCCW2 

WTECB 

WTM 

WTHCCW 

WTMCHD 

WTORPNL 

WTORTN 

WTM 

WTWl 

WTW2 

WTW3 

WTl 

WTIA 

WTIB 

WT2 

WT3 

WT4 

WT4A 

ZA 

ZALl 

ZALIA 



00006 
DO 004 
00004 
00001 
00006 
00001 
OOODl 
00016 
00001 
00001 
00001 
00001 
00001 
00001 
0000 1 
00001 
00004 
00004 
00004 
00004 
00006 
00004 
0000 6 
00001 
00?*>6 
00004 
00004 
00004 
00004 
00004 
00004 
00004 
00004 
0000 8 
00008 
00004 
00004 

oooos 

00004 
00006 
00006 
00004 
00004 
00006 
00004 
00004 
00004 
00001 
00004 
00006 
00006 
00004 
00004 
00002 
C0006 



00315S 
003186 
003190 
0031 6 A 
0023A2 
003A5C 
003C9C 
003B5C 
00 3C1C 
00395C 
001EF6 
00309C 
003BDC 
00267A 
0030 B 4 
003E1C 
0030C2 
0014AE 
0014DA 
0014CE 
0014E2 
0014F6 
001516 
00340B 
0010F6 
001598 
001588 
001566 
0020E4 
00158C 
0015C4 
001 5 EE 

r\ r\ r\ i^ i- r'T 

003638 
003640 
00231C 
001780 

003668 
002912 
002BC0 
0021D4 
00105E 
00I06E 
001086 
00 10 9 E 
000C76 
000C92 
000CD6 
C00CA2 
OOOCAA 
OOOCBB 
OOOCBE 
0002C4 
000? FA 
G0030A 



03161 
03173 
03176 
3163 
02281 
03564 
03589 
03574 
3 585 
03563 
02080 
03590 
03582 
02472 
03087 
03592 
03112 
01412 
01423 
01420 
0142 5 
01429 
01438 
03304 
02079 
01475 
0148 3 
01461 
02949 
01470 
01488 
01498 

r\ r-^ rs -^ f 

03313 
03314 
02243 
01608 
03319 
02601 
02804 
02156 

01 lis 

01123 
01129 
01134 

00837 
00843 
00859 
00847 
00849 
00852 
00853 
00252 
00267 
00272 



0786 
3 167 

3163 
2178 
0801 
3137 
0586 
3586 
3199 
2046 
1439 
3582 
2454 
0765 
2281 
1441 
1411 
1413 
1436 
1415 
1427 
1432 
0798 
2075 
1474 
1476 
1460 
1420 
1462 
1487 
1489 

0861 
0828 
2168 
159B 
2607 
2299 
2797 
0609 
1062 
1133 
1 126 
1124 
0R35 
0841 
0857 
0838 
0847 
0848 
0851 
0251 
0253 
0279 



0874 1088 115: 



2187 

0814 1100 1106 2431 2436 2592 2667 2930 

0842 0852 1130 2533 2790 2803 29 52 3069 

3588 



2547 
3584 
2454 
0B54 
359? 
1574 
2647 
1437 



0846 



2464 
1071 
3598 
2950 
2648 



2470 
1137 

3599 
3067 
2686 



1617 
3601 



2406 2605 2714 



3209 3655 



1417 



0811 2074 2521 2531 2534 2931 

2076 2077 

3213 

3210 

1423 1466 1470 1479 1483 1493 1498 225! 



^214 



1140 3627 

1135 2149 

2182 2186 2186 2315 2377 2813 

3653 

2799 

2260 2471 2501 2552 2586 2620 2681 2730 



3265 
0263 
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SYMBOL 



^ALUE 



FN 



REFERENCES 



10/28/71 



ZALIC 

ZALID 
ZALIE 
ZAL7 

ZEROSU^ 

zs 

ZSL4 

ZSL4A 

ZSL4C 

ZSL4D 

ZSL4E 

ZSL4F 

ZSl 



0000 4 
Q0002 
00004 
00004 
00004 
00004 
0000 2 
00006 
00004 
00002 
00004 
00002 
00004 



000328 
0003 3 C 
000344 
0002DC 
001410 
00035A 
000390 
0003A0 
OOOSBE 
0003D2 
00030A 
0003 E2 
000372 



00280 
00285 
002B8 
00258 
D1359 
00296 
00311 
00316 
00324 
00329 
00332 
00334 
00302 



0289 
0283 
0277 
0255 
1255 
0295 
0299 
0323 
0336 
0327 
0337 
0320 
0297 



0293 

1341 
3249 
0307 



1345 



NO STATEME^ITS FLAGGED IM THIS ASSEMBLY 
^STATISTICS* SOURCE RECORDS (SYSIM) = 3223 
'{^OPTIOMS IN EFFECT^?' LIST, NODECK, NOLOAD, MORENT 
4873 PRINTED LINES 



SOURCE RECORDS (SYSLIB) = 3497 
XREF, NOTEST, ALGN, OS, NOTERM, LINECNT 



55 



IEF28^I CSPDBALS KEPT 

IEF285I VOL SER NOS- CHORES. 

IEF285I SYSl.HACLIB KEPT 

IEF285I VOL SER HOS^ CHQRES. 

fEFzBST SYS7l3ui..T134413.Rv0u0.SPDVPK»SYSUTl DELETED 

IEF2.85I VOL SER NOS= SHFVOL. 

IEF28 51 SYS71301.T1344i3,RV000.SP0VPR.SYSUT2 DELETED 

IEF285I VOL SER NOS= SRTONE. 

TEF28 5I SYS71301.T134413.RV000.SODVc»R.SYSUT3 DELETED 

IEF285I VOL SER NOS= SP00L2. 

IEF285I SYS71301.T134413»SV000.SPDVPR.R0000111 SYSOUT 

IEF28 5I VOL SER NOS= NORKOK 

IEF28 5I SYS71301.T134413.SVOOO.SPOVPR.R0000112 DELETED 

IEF285I VOL SER NOS= WORKOl. 

IEF285I CSPOVPRS KEPT 

IEF285I VOL SER HOS= T04616. 

IEF373I STEP /ASN / START 71301.1347 

IEF374I STEP /ASN / STOP 71301.1353 CPU IMIN 06,15SEC MAIM 56K LCS OK 

STEP COHPLETION CODE: 0000 

106/230 0/230 1148/345 1127/341 955/332 169/205 0/205 164/495 
STEP EXCP COUNT: DISK 3505 TAPE 164 UNIT GRPH COMN TOTAL 3669 
IEF375I JOB /SPOVPR / START 71301.1347 

IEF376I JOB /SPDVPR / STOP 71301.1353 CPU IMIN 06»15SEC 
SYSTEM 55 



t 
f 
( 
( 
c 
« 

I 

r 



llllllllllll 


EEEEEEEEEEEE 


llllllllZlll 


EEEEEEEEEEEE 


It 


£E 


11 


E£ 


11 


EE 


11 


EEEEEEEE 


11 


EEEEEEEE 


11 


EE 


11 


EE 


11 


EE 


lllllllZlll 


EEEEEEEEEEEE 


llllllllllll 


EEEEEEEEEEEE 



DOODDOOOO 
OODOODOODO 

.00 OD 

DO DO 
OD OD 
DD DO 
00 OD 
00 00 
00 00 
OD 00 
ODDODDDODD 
DOOOOOOOD 



IIIIIIIIII 

1 1 C 1 1 1 ! I ! I 

II 

T T 

4L i. 
II 
II 
II 

I! 

II 

II 
IIIIIIIIII 
IIIIIIIIII 



00000000 
0000000000 

00 00 



00 
00 
00 
00 

00 
00 



00 
00 
00 

00 
00 

00 



AAAAAAMAAAA 
AA AA 
AA AA 
AA AA 
AAAAAAAAAAAA 
AAAAAAAAAAAA 
AA AA 



AA 
AA 



AA 

A A 
AA 
AA 



0000000000 
00000000 



II 

111 

1111 

11 

11 
11 
11 
u 
11 
11 

lUlllllll 

1111111111 



//ZEOIOl JOS f 00000, 2, 22, 595151, WEAVERf 

// 251231, A, PRTY=4 

// €XEC LINKexeC,Pi=SIM1401,PAR^,G0=»SSSAV 

XX PROC Li B=* SYSl.COBL IB* , VLIB-CHOKES,Pi=SF0DUMMY, 

XX Vl=SPDWK4fP.EGLKED=100K,REGGO=lOOK, 

XX P2^SPD0UMHY,V2=SP0WJ<4,P3=SP00UHMY,V3 = SP0yK4 

XX V4=SPDWK4,P5=SP00UMMY,V5=SPDVIK4VP6=SPD0UHMY 

XXLKED EXeC PGH=lEWL,PARM=LIST,REGION=&ReGLKEO 

IEF653I SUBSTITUTION JCL ~ PGM=IEWL,PARM=LI ST,R£GI0N=100K 

XXSYSPRINT 00 SYSOUT=A, SPACE=( 3509, 140,201 ,RLSE ,CONTIG I , 

XX 0CB=(RECFM=FBm,LRECL=121,8LKSIZE=3509,BUFN0=U 

XXSYSUTl 00 UNIT=PACK,SPACE={CYL,U0,5I) 

XXSYSLIB DO DSN=£LI8,V0L=SER=£VLIB,yNIT=PACK,DISP=SHR 

IEF653I SUBSTITUTION JCL - 0SN=SYS1 .COSLIB, VOL=SER=CHQR£S, 

XX DO 0SN=SYS1.PL1LIB,0ISP^SHR 

XX DO OSM=SYS1.FORTLI8,OISP=SHR 

XX DO OSN=SYSi*COBLIB,DISP=SHR 

XX DO DSN=CSPDSSPl,DISP=SHR 

XX SY SL MOO DO OSM=& &GOC T 1 , D I SP= « , P A SS 3 , UN I T^PAC K , SP AC£= C CYL 

XXSYSLIN 00 DSN=CDEPTTST •&?!,. CO8J£CTL,DISP=SHR,V0L=SER=fiV 

iEF653I SUBSTITUTION JCL - OSN=€D£PTTST,SIM140i.C08JECTL,D 

XX 00 DSN=C0EPTTST.&P2,,C08JECTL,DISP=SHR,VGL=SER=&V2,UNlf 

IEF653I SUBSTITUTION JCL - DSN=C0EPTTST* SPOOUMMY.COBJECTL, 

XX DO DSM=CDEPTTST.4P3..C0BJECTL,0ISP=SHR,V0L=SER=€V3,UNIT 

IEF653I SUBSTITUTION JCL - DSN=C0EPTTST- SPDOyMWY.COBJECTL, 

XX DO OSN=CDEPTTST .eP4, .C08J€CTL,0ISP=$HR, V0L=SER=SV4,UNtr 

rEF653I SUBSTITUTION JCL - DSN=COEPTTST. SP00UMMY.C08JECTL, 

XX do" DSN=CDEPffST.aP5..C0BJECTL,0ISP=SHR,V0L=S£R=SV5,UNIT 

IEF653i SUBSTITUTION JCL - OSN=COEPTTST,SPOOUHNY,COBJECTL, 

XX 00 0SN=C0EPTTST.£P6.,C0BJECTL,DISP=SHR,V0L=$ER=€V6,UNIT 



,P4=SP0DUMMY 
,V6=SP0WK4 



UNIT=PACK,DI 



ieF653l SUBSTITUTION JCL - 
XX 00 ODNAME=SYSIN 
IEF236I ALLOC. FOR ZEOIOl 



IEF23TI 
IEF237I 
IEF237I 
IEF237I 
IEF237I 
IEF237I 
IEF237I 
IEF237I 
IEF237I 
IEF237I 
IEF237I 
IEF237I 
IEF237I 
IEF237I 



236 
231 
233 
233 

233 
23 3 
134 
132 
136 
136 
136 
136 
136 
136 



M.LOCATED 
ALLOCATED 
ALLOCATED 
ALLOCATED 
ALLOCATED 
ALLOCATED 
ALLOCATED 
ALLOCATED 
ALLOCATED 
ALLOCATED 
ALLOCATED 
ALLOCATED 
ALLOCATED 
ALLOCATED 



TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 



0SN=C0EPTTST«SPDDUHMY.C08JECTL, 

LKED 
SYSPRINT 
SYSUTl 
SYSLI8 



,f5,l,10H 

lfUNIT=PACK 

1SP=SHR,V0L= 

= PACJ< 

DISP=SHR,VOL 

= PACK 

DISP=SHR,VOL 

= PACK 

01 SP=SHR, VOL 

= PACK 

OISP=SHR,VOL 

= PACK 

OISP^SHRtVOL 



00000010 
00000020 
, 00000030 
00000040 
00000050 

00000060 

00000070 

00000080 

00000090 

S P=$ HR 

00000100 

00000110 

00000120 

00000130 
000:00 140 ;■ 

00000150 
SER=SPD«K4,UNIT=PACK 

00000160 
=SER=SPDWK4,UNIT=PACK 

00000170 
=SER=SP0WK4,UNIT=PACK 

00000180 
=SER=SP0WK4,UNIT=PACK 

00000190 
=SER=SPDV^K4,UNIT=PACK 

00000200 
=SER=SPDWK4,UNiT=PACK 

00000210 



SYSLNOD 
SYSLIN 



T-^A/v^/ 



F44-LEVEL 



^^r 11^ ^ I 



LINKAGE EDITOR OPTIONS SPECIFIEO LIST 
VARIABLE OPTIONS USED - SI 2E=I238976,16384I 
DOES NOT EXIST BUT HAS BEEN ADDED TO DATA 



DEFAULT OPT ION (SI USED 



SET 



ieF285I SYS70168,T094835*SV00O,ZEOI01,RO0OOOlO SYSOUf 

I IEF285I VOL SER NOS= SPOOLl* 

IEF285I SYSTO168*T094835-RVO00*ZEDIOl,R00OOOll DELeTEO 

...... ...^^.^^^ VOL SER NOS= SPDWKl • 

J IEF285I SYS1.C08LIB KEPT 

IEF285I VOL SER NOS= CHORES. 

IEF285i SYSl.PLlLiB KEPT 

I IEF285I VOL SER ?*0S= CHORES. 

IEF285I SYSl.FORTLIB KEPT 

IEF285I VOL SER NOS= CHQRES. 
I IEF285I SYSl.COBLIB KEPT 

IEF285I VOL SER NOS= CHQRES. 

IEF285I CSPDSSPl KEPT 

( IEF285I VOL SER NOS= JOSLIB. 

IEF285I SYS70168.T094835.RVOOO.ZEDI01.GO PASSED 

IEF285I VOL SER NOS= ?^IS004. 
( IEF285I COEPTTST.SI«1401,COBJECTL KEPT 

IEF285I VOL SER NOS= SP0WK4. 

IEF285I CDEPTTST.SPOOUMMY.COBJECTL KEPT 

( IEF285r VOL SER NOS= SPDyK4. 

IEF285I CDEPTTST.SPDDUMMY.COBJECTL KEPT 

IEF285I VOL SER NOS= SP0WK4. 
I IEF285I COEPTTST.SPDDUNMY.COBJECTL KEPT 

IEF2B5I VOL SER NOS= SPDyK4. 

i1F285I - -Qp£pj|3Y7SPDO^^ KEPT 

I IEF285I VOL SER NOS= SP0WK4. 

IEF285I COEPTTST.SPODUMMY.COBJECTL KEPT 

IEF285I VOL SER NOS= SP0WK4. 
I IEF373! STEP /LKEO / START 70168,0949 

IEF374I STEP /LKED / STOP 70168.0950 CPU OOMIN 03.27SEC MAIN lOOK LCS OK 

XXGO EXEC PGM=*.LK€0.SYSLM00,C0N0=I5,LT,LK£0J , REGI ON=SREGGO 00000220 

I IEF653I SUBSTITUTION JCL - PGN=*.LK£D.SYSLMQO,CONO=l 5 ,LT ,LKEO} f REGION=l00K 

XXSYSPRINT 00 SYSOUT=A 000002 30 

//GO. WRITE OD SYSOUT=AtOCB=CRECFH=FW,BLKSIZE=133tLRECL=l33l 
I //GO.CAROOUT DO DUMMY, DC6= CRECFM=F, BLKSI Z£=80t LRECL=80) 

//GO.CARDIN DO *, DCB=BLKSIZ£=80 

it:r€.3x?i «i_L.u\-. run iucuiui. V3»u 

I IEF237I 132 ALLOCATED TO PGN==S=.DO 

IEF237I 236 ALLOCATED TO SYSPRIMT 

IEF237I 236 ALLOCATED TO WRITE 
I IEF237I 237 ALLOCATED TO CAROIN 

I 

c 

I 
I 

i 

I 

I 



( ABCOeFGHIJKLHNQPQRSTUVWXYZ 123456789 

I 

I 

I 

( 

I 

r 
( 
I 
I 
I 
I 
1 
I 
( 
I 
I 
I 
I 



IEF285I SYS70168,T094835.RV000,2E010l*G0 PASSED 

I 1EF285I VOL SER NOS= MIS004, 

IEF285I SYS70168.T094835«SVOOO.ZEDi01,R0000012 DELETED 

IiF285I VOL SER NOS= SPOOL 1* 
j IEF285I SYS7O168,T094835.SV00O,ZEDI01,R00O00l3 SYSOUT 

IEF285I VOL SER NOS= SPOOL I, 

IEF285I SYS70168,T094835.RV000.ZEDI0I.S0000014 SYSIN 
f IEF285I VOL SER f^OS= SP00L2. 

IEF285I SYS70168,T094835.RVOOO*ZEOI01.S0000014 DELETED 

IEF285I VOL SER NOS= SP00L2* 
I IEF373I STEP /GO / START 70168.0950 

IEF374I STEP /GO / STOP 70168.0951 CPU OOHIH 00,79SEC HAIN 62K LCS OK 

IEF285I SyS70168,T094835.R¥000,Z£DlOl.G0 OELEflO 

( IEF285I VOL SER N0S= MIS004. 

IEF375I J08 /2EDI01 / START 70168.0949 

IEF376I JOB /ZEOIOl / STOP 70168.0951 CPU OOMIN 04,06SEC 
( SYSTEM 51 
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